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VIDEO TELEMAT REPORT 

DEPARTEMENT TELEMATIQUE 

- J NOUVELLE ADRESSE 1 - 

54, rue Ramey 75018 PARIS 
Nouveau téléphone : 252.87.97 

Magasin de vente : Même adresse. Horaires : 10 h 30 -13 h 30 et 15 h ■ 19 h. 

Jours d'ouvertures : du mardi au samedi inclus. 
-METRO : Jules Joffrin ou Marcadet Poissonnières- 



A SELECTIONNE et DISTRIBUE 
POUR VOTRE ZX 81 



INTERCEPTEUR 


»!•*" J*»ut . . H T | 


GRAPHISME HAUTE RESOLUTION 


SUR 

CARTOUCHE 

COULEUR 

SON 


* 


DESTRUCTEUR 


COPVPICMT JCSU5 MARTINEZ 1S»©2 


GRAPHISME haute RESOLUTION 

Ces cartouches sont compatibles avec votre ZX81 quelle que soit sa configuration : avec le ZX seul : Graphique 
en Noir et Blanc. 

— Avec la carte couleur SAM, le jeu passe en couleur. — Avec la carte SON VTR, vous y ajoutez le bruitage. 
Attention cependant, pour connecter votre cartouche vous avez besoin d’un adaptateur (que vous réutiliserez 
pour les cartouches à venir). Nous vous proposons cet adaptateur à 149 F TTC. 

Cartouche « DESTRUCTEUR » 225 F TTC Port compris 
Entièrement en langage machine. Vous devrez 
détruire complètement l'immeuble sur lequel règne 
King-Kong... Mais celui-ci reconstuira l'édifice... le 
jeu allant de plus en plus vite... 


Cartouche « Intercepteur » : 245 F TTC 

« Intercepteur » est un programme de jeu entièrement en 
langage machine, extrêmement rapide. Plus vous avancez 
dans le jeu et plus il se complique (jusqu'à 255 tableaux dif¬ 
férents!!). 

Adaptateur: 149 F TTC 

Carte son VTR : 395 F TTC 

7 octaves - 3 voies (Enveloppe - Durée - Hauteur) 
avec HP incorporée sortie HI-FI STEREO. 


Carte couleur SAM : 395 F TTC 

8 couleurs - UHF. Branchements simples 

Cordon PERITEL : 130 F TTC 


i—ENFIN ELLES SONT ARRIVEES !- 



LECTEURS 
DISQUETTES 
CYBORG 
POUR ZX81, 
SPECTRUM, 
ORIC 

Directement 
connectables 
sur votre 
ordinateur. 
Capacité 360K. 
DOS très 
puissant 
22 commandes. 

DISPONIBILITE 
> JUILLET 83 
Prix environ 2 500 F TTC !! 

Adressez-nous une demande pour documentation complète 
et formulaire de réservation. Ne pas téléphoner SVP. 


-Des ACCESSOIRES INTELLIGENTS- 



PROGRAMME BIORYTHMES 

Vos courbes biorythmes aux dates que 
vous demandez, comparaisons entre diffé¬ 
rentes personnes indications des jours 
critiques Sur 1 face, programme pour ZX 
standard 

Sur l autre face programme compatible 
avec le module HRG de Memotech (gra¬ 
phisme haute resolution). 

Biorythme 16 K : 115 F TTC. 

• l'intérêt aes biorythmes est tel. que des 
compagnies d Assurances. d'Aviation et 
beaucoup d'autres organismes les utili¬ 
sent . 


VIDEO PROCESS VP tOO 

voire Sinclair transforme an unité autonome por¬ 
table clavier prot. repiiaDte 
Auto Repeat Rasai Votre Sinclair devient proies 
sionnel. 

Moniteur prof 9 " NIB Video inverte 16 K ou 64 K 
RAM inclues 

Prix sens le ZX version 16 K 2 195 F version 

64 K 2 99$ F 

Pn> avec fourniture du ZX version 16 K 2 sas F 
version 64 K 3 845 F 


VTR c'est aussi la Boutique MICRO du 
Nord de Paris: SINCLAIR ZX 81. ORIC. 
VIC 20, COMMODORE 64. EPSON.... Un 
Service Location Micro-Ordinateur sur 
place ou par correspondance, des acces¬ 
soires. des logiciels, un Service Installa¬ 
tion de vos accessoires, et ce qui ne gâte 
rien... un accueil sympathique. 


ACCESSOIRES POUR ZX 81 : 

— carte Inverse video . 95 F 

Quelques soudures simples a faire. Permet l'inverse video aussi bien 
sur teiavlseur que sur moniteur. 

— carte auto repeat . 95 F 

Autorise la répétition de la toucha appuyée apres un petit delai. 

— Mini-clavier . 3*5 F 

à sensation tactile : 42 touches. 2 touches supplémentaires (pour 
repeat ou reset) Se monte très simplement en lieu et place du clavier 
original Conserve l'encombrement du ZX. 


— Clavier professionnel sur carte . 495 F 

41 touches + barre d'espacement 
Touches professionnelles, contact OR. 

Auto repeat montée + touche Reset 

PACK IMPRIMANTE 2 995 F T T C + 100 F Port et emballage 
INTERFACE ♦ CABLE * SEIKOSHA GP 100 A 

Majuscules, minuscules, accentuées, graphisme. 80 caractères par 
ligne. 30 cps. utilise papier listing traditionnel 12 pouces. 

CASSETTES COURTE DUREE 
C 10: 9 F T.T.C. Expédition par 10 : 110 F T T C. franco 
C 15: 9,50 F T.T.C. Expédition par 10 : 115 F T.T.T. franco 
C 20: 10 F T.T.C. Expédition par 10: 120 F T T C. franco 
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LA GAMME ncnorccn 

POURQUOI CHOISIR LA GAMME MEMOTECH : 

— Tous les produits Memotech sont conçus compatibles Vous commencez ainsi une gamme d'acces¬ 
soires sans soucis et sans risques Ex : le Memocalc + 64 K + l/F Centronics vous permettra de sor¬ 
tir sur l'imprimante tous vos tableaux (jusqu'à 100 colonnes de 250 lignes !j et cela par des instructions 
existantes et non en passant par des sous-programmes ou manipulations diverses 

- Les extensions Memotech se présentent sous boitier aluminium noir harmonisé avec le design du 
Sinclair. 

- Les manuels sont complets et nous fournissons une traduction française 

— Fiables et puissants les modules Memotech sont garantis 6 mois. 



MEMOPAK 16 K 39S F TTC Port compris 

NOUVEAU PRIX 

Extension RAM 16K Commutableen version Mai 
tre ou Esclave Autorise les possibilités suivan¬ 
tes 

16K seule (en position Maitre) 

16K Maitre + 16K Esclave = 32K 
16K Maitre + 16K Sinclair = 32K 
32K + 16K Esclave (ou Sinclair) = 48K 
MEMOPAK 32K 865 F TTC Port compris 

NOUVEAU PRIX 

Extension RAM 32K. S'utilise seule ou avec la 
16K Memotech ou Sinclair et fournit alors 48K 
MEMOPAK 64K 995 F TTC Port compris 

Exploite complètement les possibilités mémoire 
de votre ZX 81 48K Basic + 8K pour langage 
machine 

MEMOPAK MRO 845 F TTC Port compris 

NOUVEAU PRIX 

Haute résolution graphique 192 x 248 2K Eprom 
avec 30 Routines graphiques^ Gestion par page 
video de 6.2 K 

M 
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L’IMMENSE SUCCES- 


DES PRODUITS MEMOTECH 

nous permet de réviser certains 
prix à la baisse ! PROFITEZ-EN ! 


MEMOPAK l/F 595 F TTC Port compris 

Interface Centronics (Port parallèle 8 bits) Majus¬ 
cules. minuscules, double largeur, conversion 
ASCII Compatible avec module HRG Câble liai¬ 
son pour SEIKOSMA GP 100 A 170 TTC Port com¬ 
pris 

MEMOCALC ANALYSE 445 F TTC Port compris 
Sur ROM indépendante commutabie. puissant et 
souple, permet l'analyse, la simulation et la prévi¬ 
sion financière. 

MEMOTEXT 445 F TTC Port compris 

Sur ROM indépendante commutabie Programme 
de traitement de texte très performant Associa¬ 
tion de fichiers • Textes ■ et fichiers ■ Coordon¬ 
nées - pour Mailing. Envois sélectifs, etc 


MEMOPAK Z 80 ASSEMBLEUR 445 F TTC P compris 
Sur ROM indépendante commutabie Un assem 
bleur des plus performants avec Editeur. Fonc¬ 
tions ORG (origine). POS (position). Labels litté¬ 
raux. etc En permanence à votre disposition 
CLAVIER MEMOTECH 695 F TTC Port compris 
s interface derrière votre SINCLAIR par carte but¬ 
ter Le clavier original est touiours actif (jeux à 
deux loueurs) touches professionnelles Légen 
des incrustées 



VTR sera présent à MICRO-EXPO du 14 au 18 
)uln Stand F12. 

Pendant ces 5 jours. PROMOTION sur tous nos 
produits. 

De plus nous aurons le plaisir de vous présen- 
ter en avant-première un accessoire que vous 
attendez tous 

LECTEUR DE DISQUETTE pour ZX81 !! à un 
prix stupéfiant. 

UNE VISITE'S'IMPOSE... ! 


UTRES POINTS DE VENTES MEMOTECH ... AUTRES POINTS DE VENTE MEMOTECH.. 


SOFITEC : 207. rue Galllém. 92100 Boulogne-Billancourt 
605 88 78 

VISMO : 68. rue Albert. 75013 Pans 586 60 10 
P.I.E.D.:42. boulevard Magenta75010 Paris(1 ) 249 16 50 
MICROPOLIS : 29. rue Palllot de Montabert. 10000 Troyes. 
(25) 72 03 79 

l'ELEC : 91 bis. rue Bringer. 11000 Carcassone 
MIDI DETECTION : 6. rue Jean-Suau. 31000 Toulouse 
(61) 23 99 88 

SUD-OUEST DETECTION : 6. rue Ferdmand-Philippart. 33000 
Bordeaux, (56) 81 11 99 

COMETELEC : 23. rue Pascal-Marie Agasse. 66000 Perpignan 
(68) 54 26 26 

ST-ETIENNE COMPOSANTS: 2. rue de Terre Noire 42100 
Si-Etienne (77) 33.50.14 

MELUN INFORMATIQUE : 9. rue de l’Eperon. 77000 Melun 
452 45 88 

RADIO TELE LAVAL : 95. rue Bernard Le Pecq. 53000 Laval 
(43) 53 19 70 

HERCET MICRO INFORMATIQUE : 70. rue du Barbatre, 51100 
Reims (26) 82 57 98 

LIBRAIRIE LAFONT : 3 rue Henri IV, 64000 Pau. (59) 27.71.40 
FAN-FAN : 10. place de la Mairie. Aix-en-Provence. 

(42) 23 29 91 

CREE : 3 rue Bossuet 69006 Lyon (7) 824 11 77 


Revendeurs Province 

Distribuez-vous aussi la 
prestigieuse gamme 
MEMOTECH 
Contactez-nous. 


LABORATOIRE D'APPLICATIONS ELECTRONIQUES : 35. rue 

Aubernon. 06600 Antibes. (93) 34 53 04 

INFORMATIQUE SERVICE : 14. boulevard Chasseigne 86000 

Poitiers. (49) 88 21 93 

FARE RADIO API : BP MOTU UTA. Tahiti. 2 02 34 
AFFEJEE ELECTRONIC : 136 A. rue Juliette Dodu. BP 805. 
97400 Saint-Denis La Réunion 

LA BUREAUTIQUE SA L'HOMME : 5. rue Fanfrelin. 16000 
Angoulême. (45) 95 27 37 

SIP INFORMATIQUE : 14. rue Sire Flrmin Leroux. 80000 
Amiens, (22) 91 08 45. 

CHOLET INFORMATIQUE : 22 rue du Point de l’Aire 49300 
Cholet (41) 46.02 40 

ST-ETIENNE COMPOSANTS : 2. rue de Terre Noire 42100 
St-Etienne (77) 33.50.14 

MICRO MANIE : Sillon de Bretagne 44800 St-Herblain 
(40) 63 07.22 

CHB ELECTRONIQUE : 20. avenue Ch. de Gaulle 71400 
Autun (85) 52.70 26 

COMPOSANTS 95 : 50. rue de la Marne 95460 Ezanvllle 
935.00.69 

BRICOTRONIC : 93. rue d'Alsace 88100 St Die 
(29) 55 34.24 

ELECTRONIC SYSTEM CENTRE: 98. rue du Fg St-Jean 
45000 Orléans (38) 62.05.17 


ARDOISE 

MAGIQUE 

16 K 

95 FT.T.C. 


Le programme conçu pour le module 
HRG de MEMOTECH transforme 
votre écran en ardoise magique. 
Depuis le clavier, vous composerez, 
point par point votre dessin en haute 
résolution. 


Jouvbbu : Filtre cassette 

:e module qui s'intercale entre le magnétophone et le ZX va vous 
bérer de vos angoisses en frabrlisant vos sauvegardes et lectures de 
rogrammes Sous boitier avec LED d'indication. 

30 F T.T.C. Port compris. 


_ soupia rallonge pour vos e«i#n**onv 

to%é (J un connecteur temeile ur>« nette souP • 
cm et un connecteur mile 1*5 F T T C 


/ous avez des idées SOFT ou HARO mais manquez de moyens de 
léveloppement ou de distribution... CONTACTEZ-NOUS. 


POUR LA FRANCE METROPOLITAINE 
NOS PRIX SONT TTC. PORT RECOMMANDÉ GRATUIT 
BON DE COMMANDE A RETOURNER A : 

VTR Département Télématique 

54 rue Ramey 75018 PARIS 

En joignant votre règlement par chèque bancaire au CCP. 
Délai Indicatif : 2 semaines. 

GRATUIT CATALOGUE COCHEZ ICI □ 

NOM:. 

Prénom : ... 

Adresse :. 


Code postal : 
Ville :. 


ARTICLE 

QUANTITE 

PRIX 
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INFORMATIONS 

Produits nouveaux. 

Vu pour vous. 

Courrier des lecteurs. 

LOGICIELS 

Nos lecteurs ont du génie. 

Ecrit : éditeur pleine page pour ZX 81 16K. 

Read, Data, Restore. 

Micro Assembleur. 

BANCS D’ESSAI 

Modification d’une cassette FLM V 16/2 ou V 16/3 
en cassette DUMP. 

La RAM interne du ZX 81 à l’honneur. 

Petites annonces. 




Revue bimestrielle éditée par 

Joker International Editions 
12 Villa St-Michel 75018 Paris 


Directeur de la publication : Jean-Louis Karl 
RÉDACTION : 

Rédacteur en chef : Jean-Michel Cohen 

Secrétaire de rédaction : Marie-Ange Noguer 
Photographe : Patrick Garrouste 

PUBLICITÉ : 

Michel Morise JOKER 24 rue Marc Seguin 75018 Paris 
Tél. 201.04.50 


ABONNEZ-VOUS PAGE 36 








































* Carte 

génératrice de 
caractères 

QUICKSILVA propose enfin 
une carte génératrice de 
caractères dans un boîtier. 
L'esthétique est d'ailleurs 
assez réussie. De plus il ne 
sera plus nécessaire d'ache¬ 
ter un carte mère pour la 
connecter, les fiches de con¬ 
nection au ZX81 sont solidai¬ 
res de la carte et inclues dans 
le boîtier. Une diode éclec- 


troluminescente indique à 
l'utilisateur si la carte est 
branchée ou pas. 

Cette carte vous permettra 
de remplacer n'importe quel 
caractère par un autre que 
vous définirez. 

La carte est livrée avec mode 
d'emploi et cassette de 
démonstration permettant 
d'obtenir les lettres minuscu¬ 
les en plus des majuscules. 
Tous les jeux Quicksilva sont 
compatibles avec cette 
carte. 



des jeux et des utilisations. Il 
est à noter que beaucoup de 
logiciels à venir seront com¬ 
patibles à ces cassettes. 

Prix de la carte + 1 manette : 265 F 
Manette supplémentaire 125 F 



* Connecteur souple (192 fi 

Pour éviter les « pertes de I souple raccordera l'exten- 


mémoire » un connecteur I sion mémoire au ZX81. 


* ZXDEBUG 

Ce logiciel permettra à l'utili¬ 
sateur d'exécuter un pro¬ 
gramme Basic ligne par ligne 
et d'observer au fur et à 
mesure les résultats. Ecrit en 
langage machine, ce logiciel 
vous aidera à mettre au point 
vos programmes. 

ZXDEBUG 86 F 


ZX BASIC 

r DEBUG/GER 



* Carte sonore 

Quicksilva commercialise 
maintenant sa carte sonore 
inclue dans un boîtier identi¬ 
que à celui de la carte carac¬ 
tère. Dans ce boîtier sont 



inclus, carte, connecteurs, 
amplificateur et le haut par¬ 
leur. 

Pour l'utiliser on branche le 
boîtier directement sur le ZX, 
aucune prise n'est néces¬ 
saire. Livrée avec mode 
d'emploi. Cette carte est 
compatible avec la carte 
haute résolution, et carte 
caractère. 

Ces 2 cartes donnent aux 
cassettes de jeux Quicksilva 
toute leur dimension. 

Pour ces 2 cartes (SON et 
CHR$) plusieurs logiciels 
sont annoncés, SCRAM 
BLE, INVADERS, PANI 
QUE. etc. 


* Manettes de 
jeux (Paddles) 

Ces manettes de jeux rem 
placeront avantageusement 
les touches du clavier pour 
les jeux de réflexe, dessin 


etc. Vendus par deux con¬ 
nectés sur une petite carte 
qui se branche entre l’exten 
sion mémoire et le ZX, les 
Manettes sont livrées avec 
mode d'emploi et cassette de 
démonstration comportant 



ROM ZX81 

Comme un professionnel figez vous-même 
fous vos programmes dans du silicium ! 
«4,8,16k sur 5cm 2 facile à stocker (4kJ7f) 


un transfert ultra rapide 16k en 1/10 s ! 
«longue conservation 5ans mini. hors alim ! 

protoexpres 
Tel.6.437.80.70 

■ P 104 77003 MELUN cedex 
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VU POUR VOUS 

moçozine 

VU CHEZ VISMO 

INVERSEUR TV ET VIDEO 

Circuit ta plaçan r à l'intérieur det boitiers ZX 

Fourni avec embase de raccordement vidéo 

Z P 83 

Interface parallèle 1pour imprimante GP 100 A) 
Enregistrement rapide 

Générateur de caractères. 

Editeur de textes 

Interface table traçante (4 couleurs) 

- UN BOITIER VISMO forme Apple intégrant votre ZX -h 10 
extensions. Le moniteur ou TV se place dessus. 

- COMPTABILITE GENERALE SUR CASSETTE. 

- UN SUPER CLA VIER mécanique type "pro" 

(avec barre d'espece touches Jean Renaud) 

VU CHEZ V.T.R. 

Des cartouches de jeu pour ZX. 

VIDEO TELEMAT REPORT développe une série de cartouches 
pour ZX 81. Actuellement 2 cartouches sont prêtes : 

- INTERCEPTEUR ET DESTRUCTEUR. 

Une autre est annoncée en juillet : 

- MINEUR 

Particularité de ces cartouches : 

- Elles fonctionnent sur un ZX 81 de base sans aucune extension. 

- Mais elles sont compatibles avec la carte SON de V.T.R et la 
carte couleur de SAM, vous permettant ainsi, si vous les possédez, 
de jouer en couleur avec effet sonore. 

- Le graphisme est en haute résolution et le programme en langage 
machine bien sûr. 

VISMO - 68 rue Albert 75013 Paris 

Tél. 16(1) 586.60.10 ■+■ 

a noter VIDEO TELEMAT REPORT 

nouvelle adresse 54 fw Ramey 7501 g Pa r j s Tél. 252.87.97 


Sinclair-ZX 81 

VOUS NE POUVEZ L'IGNORER 


Mais vous ne connaissez peut-être pas toute la 
gamme des accessoires et des nombreux loç 
directement utilisables sur ZX 81. 

Cartes graphiques, sonores, génératrices de 
caractères, extensions mémoire 64 K, lecteur de 
cassettes, consommables... 
programmes de gestion personnelle, utilitaires, jeux 
éducation, aide à la programmation. 

En vente sur stock à 





65/67 Bd St-Germain 75005 Paris 
Tél. 325 68 88 

Télex ETRAV 220064F/1303 RAC 


Nom. 

Prénom. 

Adresse. 

Code Postal.Ville 

Je désire recevoir la liste des produits disponi¬ 
bles pour le ZX 81. 

Bon à retourner à la Règle à Calcul 
65/67 Bd St-Germain 75005 PARIS. y\ 













































LESISIELS 

Ni S 

LECTEIJCS 

CNT 

CL 

GENIE 


Intersection 

Ce programme d'un lecteur anonyme 
permet de déterminer dans un tableau 
« C » les valeurs communes aux 
tableaux « A » et « B ». 


1030 

IF 

A(L)<B <J > 

THEN 

LET L=L+ 

1 

1040 

90 

IF 

A <L)=B(J > 

THEN 

GOSUB 10 

1050 

LET J-J+l 



1060 

IF 

A <L> <9999 

THEN 

GOTO 103 


o 


90 REM MODELE IV DE 1926 

90 REM 

100 LET VAR-0 

110 LET HT-0 

120 FAST 

130 CLS 

140 GOSUB 990 

150 SLOW 

160 LET IC-0 

170 LET VIT-0 

180 LET FI-0 

190 LET Ffl-0 

200 LET Kl-.0174533 

210 LET RS-0 

220 LET CRP-90 

230 LET XR-0 

240 LET YR=0 

250 LET R0-INKEY* 

260 PRINT RT 0.0;" 

270 IF fl*="0" THEN LET F1=0 
290 IF fl*="0" THEN LET FR=0 
290 IF A*="5" THEN LET FI=1 
300 IF A»="8" THEN LET FI=-1 
310 IF A*="6" THEN GOSUB 730 
320 IF A*="7" THEN GOSUB 760 
330 IF FI —1 THEN LET IC=IC-5 
340 IF FI=1 THEN LET IC-IC+5 
350 IF 1065 THEN LET IC=65 
360 IF IC<-65 THEN LET IC—65 
370 IF FR—1 THEN LET RS-RS+5 
380 IF RS>7 THEN LET RS=7 
390 IF RS<-8 THEN LET RS—8 
400 IF A*="N" THEN LET VIT=VIT+ 
10 

410 IF fl»="M" THEN LET VIT=VIT- 

10 

420 IF VITM60 THEN LET VIT-160 
430 IF VIT<0 THEN LET VIT-0 
440 LET DV-IO30 
450 IF DV>0 THEN LET DV—DV 
460 LET KC=20*<1-COS <IC*K1>> 
470 LET KS-10TSIN C IC*K1> 

4B0 LET VRR=TRN < RStK 1 >t. 277*'VI 
T+DV 

490 IF VIT>80 THEN LET VCRP—IC 
/10*120^VIT 

500 IF INT HT=0 THEN LET VCRP— 
IC*VITd00 
510 LET HT-HT+VRR 
520 IF VIT>50 RND HT<10 RND RBS 
1015 THEN GOTO 3B0 
530 IF XR>47 RND Xfl'53 RND HT<4 
00 THEN GOTO 900 
540 IF VIT<80 RND INT HT>0 THEN 
GOSUB 790 

550 LET CRP-CRP+VCRP 
560 IF CRP>=360 THEN LET CRP=CR 
P-360 
570 SLOW 
570 SLOW 


NDLR : Des problèmes d'impri¬ 
mante font apparaître sur cer¬ 
tains listings des caractères inha¬ 
bituels (minuscules et lettres 
accentuées). Ils représentent des 
caractères normalement en 
inversion vidéo, ce qui explique 
la présence de listings sur impri¬ 
mante Sinclair outre les listings 
des programmes sur imprimante 
à aiguilles. 



10 REM INTERSECT VERSION 1.1 
100 DIM A ( 10) 

110 DIM B <10) 

120 DIM CdO) 

200 LET R(l)=2 

210 LET A (2) =3 

220 LET A<3)=4 

230 LET B(1)=3 

240 LET B<2>=4 

250 LET B < 3)=5 

260 LET A(4)=9999 

270 LET B(4)=9999 

300 GOSUB 1000 

400 FOR 1=1 TO 10 

410 IF CIDOO THEN GOSUB 450 

420 NEXT I 

430 PRINT "—>FIN" 

440 STOP 

450 PRINT > ”SC(I) 

460 RETURN 
1000 LET L*1 
1010 LET J=1 
1020 LET K“1 


1070 IF B <J)<9999 THEN GOTO 103 
0 

1080 RETURN 
1090 LET C(K)=A ÏL> 

1095 LET L-L+l 
1100 LET K=K+1 
1110 RETURN 
9090 SAVE "INTER'' 


Simulateur de vol 

Ceci est un simulateur de vol sans visibi¬ 
lité. L'écran se divise en deux parties. Le 
haut donne les indications nécessaires 
au vol. Le bas représente une « vue 
radar » de l'espace où l'on peut voler. 
Les « * » représentent des montagnes 
hautes de 400 m. Le « 0 » en caractère 
inverse représente un dépôt ennemi qu'il 
faut bombarder (c'est automatique en 
passant au-dessus) à l'altitude la plus 
basse possible, le point représentant 
l'avion. 

Voici les commandes dont on dispose : 

5 fait virer à gauche 
8 fait virer à droite 

6 fait descendre 

7 fait monter 

J. Ph. La Bruyère 


10 REM 

20 REM ECHOS SINCLAIR 1983 
30 REM <C> J-PH LRBRUYERE 

40 REM 

50 REM SIMULATEUR DE VOL 
60 REM 

70 REM AVION' VICKERS VIRGINIA 
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1000 PRINT RT 4.X;"-" 
1010 NEXT X 
1020 FOR E-23 TO 23 
1030 FOR X-3 TO 21 
1040 PRINT PT X.E;"*" 
1030 NEXT X 
1060 NEXT E 

1070 PRINT PT 11,26;"o" 

1000 RETURN 

9000 SPVE "PILOT*" 


maypay 

x 



3S0 IJNPLOT XA.YA 
390 LET YA-Yfl-»-8*VIT.'3600*COS <C 
RP*K1> 

600 LET Xfl-XA-4*VIT'3600*SIN <C 
RP*K1> 

610 PLOT XP,YP 
620 IF HT<0 THEN LET HT-0 
630 IF HT=0 AND VRRv'-3,THEN GOT 
O 940 

640 IF HT-0 AND VARC0 THEN LET 
VPR-0 

630 PRINT RT 1,0;"ALTITUDE ";IN 
T HT;“ METPES ■ 

660 PRINT PT 2,0;“VITESSE ";INT 
VITj " KM/'H " 

670 IF INT VAR-0 THEN PRINT RT 
0.7;"PPLLIER ";INT <10*VPRV10j 
"M/'S " 

680 IF INT VPR>0 THEN PRINT RT 
0j7J "MONTEE ";INT <10TVAPV10; 
"M^S " 

690 IF INT VRR<0 THEN PRINT RT 
0,7;"DESCENTE ";INT <10TVRP^10 ; 
”M'S “ 

700 PRINT RT 0,25i"CRP “;INT CR 
P 

710 PRINT RT 2,19;"VIRRGE “iINT 
<VCAP*10V10; " " 

720 GOTO 230 

730 LET AS-AS-.3 

740 IF HT>0 THEN LET VIT=VIT+3 

730 RETURN 

760 i_ET AS-AS+.3 

770 IF HT>0 THEN LET VIT-VIT-3 

780 RETURN 

790 LET RS-0 

800 LET CT-10 

610 LET VIT-VIT+3 

820 LET HT—HT—30 

830 LET VRR—10 

840 LET CT-CT-1 

830 PRINT RT 0.0;"DANGEP..." 

860 IF HT<-0 THEN GOTO 920 
870 RETURN 

880 PRINT RT 10.6;"L""AILE TOUC 
HE LE SOL...." 

890 GOTO 930 

900 PRINT RT 10.9;"C""EST FINI" 

; RT 11.3;"CRASH SUR LR COLLINE" 

910 GOTO 930 

920 PRINT RT 10,10;"DECROCHAGE 
fl BASSE PLTITUOE" 

930 GOTO 930 

940 PRINT RT 10,10;"ATTERISSAGE 
TROP DUR" 

930 PRINT RT 14,10;"UN AUTRE VO 
YRGE <0'N> T" 

960 INPUT OR 

970 IF OR<l>-"N" THEN STOP 
980 RUN 

990 FOR X-l TO 31 


Kaléidoscope 

Ce programme est un programme de 
dessins. Il utilise les possibilités graphi¬ 
ques du ZX81. Ce serait encore plus 
beau sur le spectrum, quelqu’un le fera 
sûrement... 

M. Ma/freyt 


10 PEM SANS PELRCHE 

11 PEM "KALEIDOSCOPE" rPFP DFS 

12 PEM DESSINS PERPETUELLEMENT 

13 PEM CHANGEANTS 

14 PEM AUTEIJP MICHE1 MALFPFYT 
13 CL S 

20 PPTNT AT 11 12 ;"PPET 7” 

23 IF INKEYR=”" THEN GOTO 25 
30 CLS 

40 GOSUB 1O00 
50 LET G-0 
60 LET B=21 
70 LET D-31 
80 LET H=0 

90 REM TRACE DE LA LIGNE HOP12 
ONTALE DU HAUT 
100 FOR I-G TO D STEP E 
120 PPINT AT H,I ;AR 
130 NEXT I 

133 PEM TRACE DE DROITE EN VERT 
ICALE DESCENDANTE 
140 FOP I-H TO B STEP E 
130 PRINT AT I.D; A# 

160 NEXT I 

180 REM H0PI20NTALE DU BAS 
190 FOR I-D TO G STEP -E 
200 PRINT AT B.I : A* 

210 NEXT I 

213 PEM VERTICALE DE GRUCHE MON 
TANTE 

220 FOR I-B TO G+l STEP -E 

230 PRINT RT I,G;AR 

240 NEXT I 

230 LET G-G+fi 

260 LET H-H+A 

270 LET D-D-A 

280 LET B-B-A 

290 IF B<*11 AND RND>.93 THEN G 
OSUB 1800 
303 LET RD-RND 

310 IF B<3 AND RDO.29 THEN GOS 
UB 1000 
313 REM 

320 IF B<3 AND RD>.29 AND RD<-. 
58 THEN GOSUB 1200 
330 IF B<3 AND RD>.59 THEN G08U 
B 1300 
390 GOTO 90 

400 SAVE "KALEIDOSCOPe" 


410 RUN 

1000 PEM SUB VIENT DE 310 
1010 LET RD-INT < RNDT12 > 

1020 LET AR-CHPR RD 
1030 GOSUB 2000 
1050 GOTO 30 
1060 RETURN 

1200 PEM SUB VIENT DE 320 
1210 LET PD-INT <’PND*12> 

1220 LET A*=CHP* <RD+128> 

1240 GOSUB 2000 
1250 GOTO 30 
1260 RETURN 

1300 REM SUB VIENT DE 330 
1303 LET RN-RND 
1310 IF PN<-.06 THEN LET 2-18 
1312 IF RN>. 

LET 2-19 


LET 2=20 
1316 IF PN>.19 
LET 2-21 
1318 IF RN>.23 
LET 2=22 
1320 IF RN. 31 
LET 2-23 
1322 IF PN>.37 
LET 2=27 
1324 IF PN>.43 
LET 2-146 
1326 IF PN S .49 
LET 2-147 
1328 IF RN>.53 
LET 2=148 
1330 IF PN>.61 
LET 2-149 
1332 IF RN>.67 
LET 2=130 • 


LET 2-151 

1336 IF RN>.8 AND RN< = .86 THEN L 
ET 2=136 

1338 IF PN>.86 AND PN<=.93 THEN 
LET 2=180 

1340 IF PN>.93 THEN LET 2-139 
1350 LET A9-CHP* 2 
1368 GOSUB 2000 


AND 

PNC-.12 

THEN 

AND 

PN<-.19 

THEN 

AND 

RN<-,23 

THEN 

AND 

RN< = . 31 

THEN 

AND 

PN<-.37 

THEN 

AND 

PN'».43 

THEN 

AND 

RN*'-. 49 

THEN 

AND 

RN<-.33 

THEN 

AND 

RN<*.61 

THEN 

AND 

PN<“.67 

THEN 

AND 

PN*'-. 74 

THEN. 

AND 

RN<-.80 

THEN 


1370 GOTO 30 
1380 RETURN 

1800 REM SUB VIENT DE 290. 

DESSINE LE CAPRE DE " " 

1810 LET A*-" " 

1820 LET A=1 
1830 LET E=1 

1833 IF B<6 THEN GOSUB 1000 
1833 GOTO 90 
1840 RETURN 

2080 PEM SUB VIENT DE 1030,293 
DETERMINE ECARTS ENTRE 
LIGNES ET ENTRE SIGNES 
2030 LET A=INT ''PNDT8'* 

2035 IF A<1 THEN LET A=1 
2040 LET E=INT CPND*9> 

2045 IF E<1 THEN LET E=1 
2060 RETURN 


Programme « Bases » 

Des programmes de changement de 
bases nous ont été proposés, notam¬ 
ment par M. Lang. En voici un qui per- 
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Nos lecteurs ont du génie 


met de travailler de n'importe quelle 
base à n'importe quelle autre (2 4 bas 
<■361. 


J M. Lang 


8 REM- 

1 REM PROGRAMME PE 

2 REM CHANGEMENT DE BASE 

3 REM 

4 REM JV VANROYEN. JM COHEN 

3 REM-- 

6 REM 
10 CLEAR 
20 LET P-0 
30 LET 1-0 
40 LET A*-”" 

30 LET Z*="0123406789ABCPEF JHI 
JKLMNOPQRSTUVWXYZ" 

60 PRINT "NOMBRE 
70 INPUT T* 

80 PRINT T* 

90 PRINT "BASE PE DEPART 
100 INPUT T 
110 PRINT T 

120 PRINT "BASE D""APPIVEE 

130 INPUT B 

140 PRINT B 

130 LET L-LEH T* 

160 LET B*-T*r L-I> 

170 LET BB-COPE B*-28 
180 LET R-R+T**I*BB 
190 LET I-I+l 
200 IE I<L THEN GOTO 160 
210 IF B-10 THEN GOTO 320 
220 LET A-P 

230 LET R-A-BTINT (A--B> 

240 LET B*=2*<R+n 
230 LET A*-B*+A* 

260 LET A=<A-PVB 

270 IF A>-B THEN GOTO 230 

2S0 LET B*-Z*<A+1> 

290 LET Ae-Be+A* 

300 PRINT "VALEUP ";A* 

310 GOTO 330 

320 PRINT "VALEUR ";P 

330 PRINT 

340 IF INKEY»-"" THEN GOTO 340 
330 RUN 

900 SAVE "BASE®" 


Isola 

Un jeu très connu et passionnant. Serez- 
vous aussi fort que votre Sinclair ? 


10 REM ***ISOLA»»* 

20 REM AUTEUR JP-PONTENUILL 
100 CLS 
103 SLOW 

110 PRINT AT 4,10;"I SOL A" 
120 PRINT AT 7,0;"REGLE PU JEU" 
130 PRINT AT 9,0;"VOUS AVEZ LE 
PION T,ET MOI LE","PION 0. A SON 
TOUR, CHACUN","DEPLACE SON PION 
P UNE CASE PANSN IMPORTE QUELLE 
DIRECTION ET" 

140 PRINT "DETRUIT LA CASE PE S 
ON CHOIX." 

130 PRINT 


160 PRINT "LE VAINQUEUR EST CEL 
UI QUI A","COMPLETEMENT BLOQUE L 
AUTRE EN L ENTOURANT PE CASES 
NOIRES." 

170 PRINT AT 20 0;"ETES-VOUS PP 
ET?" 

180 GOSUB 9000 

190 IF R»-"N" THEN RUN 

200 CLS 

210 PRINT ,,“QUEL EST VOTRE NIV 
EAU?",,, 

220 PRINT ”1-DEBUTANT",,"2-MOYE 
N",,"3-FOPT",,"4-CHAMPION" 

230 INPUT NI 

240 IF NKl OP NI >4 THEN GOTO 2 

00 

230 CLS 
1000 FAST 
1011 PIM D< 8 > 

1020 LET V»-" 

II 

1030 LET T*-"9999999999900000000 
9900000000990000000099000000009° 
00000000990000000099000000009900 
00000099999999999" 

1033 LET 0-30000 
1040 FOR 1-1 TO 100 
1030 POKE 0+1, VAL T«m 
1060 NEXT I 

1062 REM 

1063 LET P*="0-1009-11-100010-90 

11010 " 

1070 FOR 1=1 TO 8 

1080 LET Dm*VAL P*<3*1-2 TO 3* 

I > 

1083 POKE 30102+1,P<n 
1090 NEXT I 

1120 LET X2-INT <RNP*78>+12 
1130 IF PEEK <0+X2> THEN GOTO 11 
20 

1140 POKE ( 0+X2), 2 

1130 LET X3-INT <PNP*78>+12 

1160 IF PEEK < 0+X3 > THEN GOTO 11 

30 

1170 POKE <0+X3>,3 

1180 LET T0-O 

1181 POKE 30102,NI+2 
1183 LET V2-0 

1189 GOSUB 6300 

1190 PRINT AT 14,0;"VOULEZ-VOUS 
JOUER EN PREMIER?" 

1193 SLOW 

1200 GOSUB 9000 

1210 IF R*-"0" THEN GOTO 4000 

2000 FAST 

2003 POKE 0,X3 

2100 LET V3D3-IJSR 16314 

2103 LET V3-INT <V3D3'2S6> 

2110 LET D3-V3D3-2S6*V3 

2330 IF V3 AND NIOl THEN PRINT 

AT 18,0;"JE SENS MA FIN PROCHE" 

2340 IF NOT D3 THEN GOTO 2430 

2330 LET XX2-D< D3 >+X3 

2332 POKE 0+XX2,3 

2380 POKE O+X3-0 

2363 LET XX1-X3 

2367 LET X3-XX2 

2370 GOTO 3000 

2380 LET P3-P3+1 

2390 IF D3-9 THEN LET P3-1 

2410 IF P3OD0 THEN GOTO 2490 

2430 IF NOT 01 THEN PRINT AT 18, 

0;"J AI PERDU EN ";T0;" COUPS 

H 

2432 IF 01 OR NOT P2 THEN PP INT 
AT 18,0;"PARTIE NULLE APPES ";T0 
;” COUPS 


2433 PRINT V* 

2440 GOTO 8200 

2430 LET D3-INT <RNP»8>+1, 

2460 LET 01-0 
2480 LET P0-D3 

2498 LET 00—PEEK < 0+P'D3 >+X3' 

2492 IF NOT 00 THEN GOTO 2330 

2494 IF 00-2 THEN LET 01-1 

2300 GOTO 2380 

3000 POKE 0,X2 

3020 LET V2D2-USP 16314 

3030 LET V2-INT <V2P2'236> 

3040 LET P2-V2P2-V2T236 

3230 IF D2 THEN GOTO 3293 

3260 FOR K-l TO 8 

3270 IF PEEK <0+X2+PCK>> THEN GO 

TO 3290 

3280 LET P2-K 

3283 GOTO 3293 

3290 NEXT K 

3291 GOTO 2300 

3293 POKE < 0+X2+D< D2>>, 3 
3296 PRINT AT 14,0;V* 

3298 SLOW 
3300 GOSUB 8000 

3302 LET XX-XX1 

3303 LET B*="+" 

3304 GOSUB 7000 

3306 LET XX-XX2 

3307 LET B*»"0" 

3308 GOSUB 7000 

3309 GOSUB 8000 

3310 LET XX-X2+P< D2 > 

3311 LET B*-"B" 

3312 GOSUB 7800 
4000 LET P2-0 
4010 LET 01-0 
4030 LET X-0 
4040 FOR K-î TO 8 

4040 LET OO-PEEK f0+P' v '+V*' 

4000 IF NOT 00 THEN GOTO 4068 

4002 IF 00-3 THEN LET 01-1 

4004 GOTO 4080 

4060 LET P2-P2+1 

4070 LET X-pr K >+X2 

4080 NEXT K 

4090 IF D2 THEN GOTO 0000 
4092 IF 01 THEN GOTO 240? 

4100 PRINT AT 18,0;"J AI GAGNE E 
N “;T0,“ COUPS 
4100 GOTO 2430 

0000 IF V2 AND NIOl THEN PPINT 
AT 19,8;"JE SENS VOTPE FIN PPOCH 
E" 

0020 IF P2-1 THEN GOTO 0060 
0030 PRINT AT 14,0;“PAPMI LES 
D2;" COUPS JOUABLES ,"LEQUEL J 
OUEZ-VOUS? LIGNE COLONNE" 

0000 GOTO 0110 
0060 LET X-X-l 
0070 LET L-INT <XO0'' 

0080 LET C=X-L*10 
0080 REM 

0090 PRINT AT 14.0;"VOUS NE POUV 
EZ PLUS JOUER QUE “;L;C 
0100 GOTO 0130 
0110 INPUT L* 

0110 LET L-COPE L9-28 
0116 LET C-COPE L»<2 TO V28 
0120 IF C<1 OP 08 OP L< 1 OP L>8 
THEN GOTO 0038 
0130 LET X-10TL+C+1 
0140 IF PEEK <0+X> THEN GOTO 003 
0 

0100 LET P0-X-X2 

0160 IF ABS D0>11 THEN GOTO 0030 
0170 LET V-0 
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5180 FOR K-l TO 8 
5220 LET V—V+1*< D0=D< K > > 

5230 NEXT K 

5240 IF MOT V THEN GOTO 5030 

5250 POKE 0+X- 2 

5260 POKE 0+X2,8 

5270 LET T0-T0+1 

5290 LET XX-X2 

5290 LET B*="+" 

5300 GOSUB 7000 
5310 LET XX-X 
5315 LET X2-X 
5320 LET B*-"*“ 

5330 GOSUB 7000 
5490 PRINT RT 14,0;V* 

5500 PRINT "QUELLE CRSE DETRUISE 
Z-VOUS? 

5530 INPUT LT 
5532 LET L-CODE LT-28 
5535 LET C-CODE LT'2 TO >-28 
5540 IF C<1 OR C s 8 OP L'1 OP L>9 
THEN GOTO 5520 
5550 LET X-L*10+C+l 
5560 IF PEEK <0+X> THEN GOTO 552 
0 

5570 POKE < 0+X >,5 
5572 LET XX-X 
5575 LET B*="«" 

5577 GOSUB 7000 

5580 GOSUB 8000 

558$ PRINT RT 14,0)VT 

5586 PRINT VT 

5590 GOTO 2000 

6500 PPINT " 12345678" 

6510 LET BT-" ■■MH* 

6520 LET C*="•♦♦++++♦*■" 

6530 PRINT PT 

6580 FOP 1-1 TO 8 

6585 PRINT I)CT;I 

6590 NEXT I 

6600 PRINT BT 

6740 PRINT " 12345678" 

6750 LET XX-X2 
6760 LET BT="*" 

6770 GOSUB 7000 
6780 LET XX-X3 
6790 LET BT="0" 

6800 GOSUB 7000 
6810 RETURN 

7000 LET LI-INT <<XX+9V10> 

7010 LET CO-XX-L1*10+10 
7020 PRINT RT LI,CO;PT 
7030 RETURN 
8000 FOP 1-1 TO 20 
8010 NEXT I 
8020 RETURN 

8200 PRINT RT 200)"VOULEZ-VOUS 
UNE RUTPE PRETIEZ" 

8210 GOSUB 9000 

8220 IF PT="0" THEN GOTO 100 

8230 PRINT "RU REVOIR.fl BIENTOT” 

8240 STOP 

9000 INPUT PT 

9010 LET PT=CHPT CODE PT 

9030 IF PT="0" OP PT="N" THEN PE 

TURN 

9035 PRINT "0 OU N ?" 

9037 GOTO 9000 
9500 SRVE "ISOLa" 

9600 PUN 

9601 REM 

9602 REM 

9603 REM 


Liste hexadécimale. 

(1 Rem... 176 caractères) 


16514 

06 

01 

FD 

21 

9D 

75 

21 

30 

16522 

75 

5E 

16 

00 

78 

32 

95 

75 

16530 

D5 

21 

96 

75 

E5 

3R 

95 

75 

16538 

FE 

01 

C2 

RB 

40 

FD 

23 

FD 

16546 

23 

FD 

36 

00 

00 

FD 

36 

01 

16554 

00 

El 

DI 

D5 

23 

7D 

FE 

9F 

16562 

CR 

E8 

40 

E5 

7R 

56 

86 

CR 

16570 

97 

40 

7E 

83 

5F 

4F 

06 

00 

16578 

21 

30 

75 

09 

7E 

FE 

00 

C2 

16586 

97 

40 

3R 

95 

75 

3C 

47 

21 

16594 

96 

75 

BE 

C2 

8E 

40 

FD 

66 

16602 

01 

FD 

6E 

00 

23 

FD 

75 

00 

16610 

FD 

74 

01 

C3 

RB 

40 

DI 

3fl 

16618 

95 

75 

3D 

CR 

F6 

40 

32 

95 

16626 

75 

C3 

97 

40 

FD 

21 

RE 

75 

16634 

01 

00 

08 

11 

01 

00 

FD 

66 

16642 

00 

FD 

2B 

FD 

6E 

80 

FD 

28 


16650 

R7 

ED 

52 

DR 

17 

41 

48 

FD 

16658 

56 

02 

FD 

5E 

01 

05 

C2 

00 

16666 

41 

FD 

21 

00 

40 

7R 

FE 

00 

16674 

C2 

2E 

41 

7B 

FE 

05 

D2 

2E 

16682 

41 

06 

01 

C9 

06 

00 

C9 

76 


Filtre passe haut 
pour H.P. 

Un petit programme scientifique dont 
l'intérêt est de tracer la courbe de fré¬ 
quence du filtre calculé. 


0 PEM G.DEVRCHT 
10 REM RC 

20 PRINT "FILTRE PASSE HAUT PO 
UR HP" 

30 PRINT 

40 GOSUB 1000 

50 PRINT "Z<EN OHMS''»") 

60 INPUT P 
70 PRINT P 
80 PRINT 

90 PRINT "C<EN FRPflD^*") 

100 INPUT C 
110 PRINT C 


120 PRINT 

130 PRINT “L< EN HENRY >—") 

140 INPUT L 

150 PRINT L 

160 PAUSE 200 

170 CLS 
175 REM 

180 PEM.SEMI LOG. 

185 REM 
190 FRST 

200 PRINT RT 0.0)"100 H?")RT 0, 
13)"1000")RT 0,27)"10000" 

210 LET XX-0 

220 FOP 1-1 TO 10 

230 LET X-<LN I^LN 10>*31+XX 

240 PLOT X,41 

250 PLOT X,0 

260 NEXT I 

270 IF X-31 THEN LET XX-31 
280 IF X-31 THEN GOTO 220 
290 PRINT RT 2,1)"0 DB- 

__H 

295 PRINT 

300 FOP I—1 TO -9 STEP -1 
310 PPINT I)“- 


320 PPINT 
330 NEXT I 
340 SLOW 
345 REM 

350 REM.GRAPHE. 

355 PEM 

360 FOR F-100 TO 1000 STEP 100 
370 LET 2L-2*PI*L*F 
380 LET ZC-1/< 2*PI*C*F > 

390 LET 2-1 l-'R+l yZL >+?C 
400 LET N-10*LN <<Z-ZCVZVLN 1 

0 

410 IF N<-9 THEN GOTO 430 
420 PLOT <LN <F^100VLN 10 >*31, 
38+N*4 
430 NEXT F 

440 FOR F-1000 TO 10000 STEP 10 
00 

450 LET ZL-2*PI*L*F 
460 LET ZC-1 2*PI*C*F > 

470 LET Z-1A1yR+1'ZL>+ZC 
480 LET N-10*LN <<Z-2CVZVLN 1 

0 

490 IF N<-9 THEN GOTO 510 
500 PLOT < LN (FY1000 >^LN 10>*31 
♦31,38+N*4 


510 

NEXT F 



520 

STOP 



1000 

PRINT 

II" 


1010 

PP INT 



1020 

PRINT 



1030 

PRINT 

Il ■ 

■" 

1040 

PRINT 

S 

O 

s 


1050 

PRINT 

H |" 


1060 

PRINT 

M | 

2< HP > " 

1070 

PRINT 

Il |H 


1080 

PRINT 

" L 1" 


1090 

PRINT 

Il |ll 


1100 

PRINT 

■ 

■" 

1120 

PRINT 



1130 

RETURN 


2000 

SRVE " 

FILTRe" 



Roulette 

Pour les habitués des casinos, voici le 
programme de J. Jeannin, il permettra à 
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Nos lecteurs ont du génie 


ceux qui le désirent de tester leur jour de 
chance (à moindre frais I). 



10 REM 081064010482 J.JERNNIN 
20 REM "ROULETTE" 

30 RRND 
40 LET C-0 
50 GOSUB 1100 
60 PRINT RT 17,9;" 

S JEUX RT 20,9; 

UNE TOUCHE" 

70 PRUSE 4E4 
80 PRINT RT 17,9;" 

ONT FRIT ” ;RT 20,9;“ 

VAS PLUS 

90 LET X-INT < RNDT36 > 


FRITE VO 
RPPIJYER SUR 


LES JEUX S 
PIEN NE 


100 

GOSUB 

1080 

110 

GOSUB 

1040 

120 

PRINT 

RT 20,4; " •" 

130 

GOSUB 

1080 

140 

GOSUB 

1060 

130 

PRINT 

RT 19,6;"." 

160 

GOSUB 

1080 

170 

GOSUB 

1040 

180 

PRINT 

RT 18,6;“ ." 

190 

GOSUB 

1080 

200 

GOSUB 

1060 

210 

PRINT 

RT 17,6; “ •" 

220 

GOSUB 

1080 

230 

GOSUB 

1040 

240 

PRINT 

RT 16,6;"." 

250 

GOSUB 

1080 

260 

GOSUB 

1060 

270 

PRINT 

RT 15,3;"." 

280 

GOSUB 

1080 .. 

290 

GOSUB 

1040 

300 

PRINT 

RT 15,4;" ■" 

310 

GOSUB 

1080 

320 

GOSUB 

1060 

330 

PRINT 

RT 15,3;. 

340 

GOSUB 

1080 

350 

GOSUB 

1040 

360 

PRINT 

RT 13,2;"." 

370 

GOSUB 

1080 

380 

GOSUB 

1060 


“; RT 20,9; 


390 PRINT RT 16,1;" ." 
400 GOSUB 1080 
410 GOSUB 1040 
420 PRINT RT 17,1 ;"■" 
430 GOSUB 1080 


440 GOSUB 1060 

450 PRINT RT 18,1;"." 

460 GOSUB 1060 
470 GOSUB 1040 
400 PRINT RT 19-1;“ 

490 LET C-C+l 

500 IF C-15 THEN GOTO 40 

510 GOSUB 1100 

520 IF 0-10 THEN PRINT RT 17,9 
;“ FIN DES 

530 PRINT RT 20,9;“ PAYEMENT D 
ES MISES " 

540 IF X-0 THEN PRINT RT 3,1;” 
";RT 4,1;" " ; RT 5,1;" ”; RT 6,1;" 

"; RT 7,1;"0"; RT 8,1;" ";RT 9,1; 
" "; RT 10,1;" "; RT 1,1;" CHANCES 
SIMPLE EN PRISON";RT 12,1;" CHR 


NCES 

SIMPLE EN PRISON" 



330 

IF X-l THEN 

PRINT 

RT 

9,3," 

" ; AT 

10,3;"1" 




360 

IF X-2 THEN 

PRINT 

AT 

6,3;" 

"; AT 

7,3; "2" 




370 

IF X-3 THEN 

PRINT 

RT 

3,3;” 

“; AT 

4,3;"3" 




380 

IF X-4 THEN 

PRINT 

AT 

9,3; " 

"; AT 

10,5;"4" 




590 

IF X-5 THEN 

PRINT 

AT 

6,3;" 

"; AT 

7,5;"3" 




600 

IF X-6 THEN 

PRINT 

AT 

3,5;" 

" ; AT 

4,5;"6" 




610 

IF X-7 THEN 

PRINT 

RT 

9,7; “ 

" ; AT 

10,7;“7" 




620 

IF X-8 THEN 

PRINT 

RT 

6,7;" 

" ; AT 

7,7;"8" 




630 

IF X-9 THEN 

PRINT 

RT 

3,7;" 

"; AT 

4,7;"9" 




640 

IF X-10 THEN PRINT RT 9,9;" 


1“; RT 10,9;"0" 

650 IF X-ll THEN PRINT RT 6,9;“ 
1 " ; AT 7,9; " 1 " 

660 IF X-12 THEN PRINT RT 3,9;" 
1 "; AT 4,9;"2" 

670 IF X-13 THEN PRINT RT 9,11; 
"1"; RT 10,11;"3" 

680 IF X-14 THEN PRINT RT 6,11; 
"1"; RT 7,11;"4" 

690 IF X-15 THEN PRINT RT 3,11; 
"1"; RT 4,11;"5" 

700 IF X-16 THEN PRINT RT 9,13; 
"1"; RT 10,13;"6" 

710 IF X-17 THEN PRINT RT 6-13; 
“1"; RT 7,13;"7" 

720 IF X-18 THEN PRINT RT 3,13; 
"1"; RT 4,13;"8" 

730 IF X-19 THEN PRINT RT .9,15; 
"1"; AT 10,15;"9" 

740 IF X-20 THEN PRINT RT 6,15; 
"2";AT 7,15;"0" 

750 IF X-21 THEN PRINT RT 3,15; 
“2";AT 4,15;"1" 

760 IF X-22 THEN PRINT RT 9,17; 
"2";AT 10,17;"2" 

770 IF X-23 THEN PRINT RT 6,17; 
"2";AT 7,17;"3" 

700 IF X-24 THEN PRINT AT 3,17; 
"2";AT 4,17;"4" 

790 IF X-25 THEN PRINT RT 9,19; 
"2"; AT 10,19;"5" 

800 IF X-26 THEN PRINT RT 6,19; 
“2";AT 7,19;"6" 

810 IF X-27 THEN PRINT RT 3,19; 
"2";AT 4,19;"7" 

820 IF X-20 THEN PRINT AT 9,21; 
"2";AT 10,21;"8" 

030 IF X-29 THEN PRINT RT 6,21; 
"2"; AT 7,21;"9" 

840 IF X-30 THEN PRINT RT 3,21; 
"3";AT 4,21 ;"0" 


850 IF X-31 THEN PRINT RT 9,23; 

“3";AT 10,23;"1" 

860 IF X-32 THEN PRINT RT 6,23; 

"3";AT 7,23;"2" 

870 IF X-33 THEN PRINT RT 3-23; 

"3";AT 4,23;"3" , 

880 IF X-34 THEN PRINT RT 9,25; 

"3”; RT 10,25, 

890 IF X-35 THEN PRINT AT 6,25; 

"3";AT 7,25)"5" 

900 IF X-36 THEN PRINT AT 3,25. 

"3";AT 4,25;"6" 

910 IF X-I OR X-3 OR X-5 OR X-7 
OR X-9 OR X-12 OR X-14 OR X-16 
OR X-18 OR X-19 OR X-21 OR X-23 
OR X-23 OR X-27 OR X-30 OP X-32 
OR X-34 OR X-36 THEN PRINT RT 1, 

19;" ROUGE “ 

920 IF X-2 OR X-4 OR X-6 OP X-8 

OR X—10 OR X-ll OP X-13 OP X-13 
OR X-17 OR X-20 OP X-22 OP X-24 
OR X-26 OP X-28 OR X-29 OR X-31 
OR X-33 OR X-33 THEN PRINT RT 1 
2,19;“ NOIR " 

930 IF X-2 OR X-4 OP X-6 OP X-8 
OR X-10 OR X-12 OR X-14 OR X-16 
OR X-18 OR X-20 OP X-22 OP X-24 
OR X-26 OR X-28 OR X-30 OR X-32 
OR X-34 OP X-36 THEN PRINT RT 1 
2,11;" PAIR " 

940 IF X-l OR X-3 OP X-3 OR X-7 
OR X-9 OR X-ll OR X-13 OR X-13 

OR X-17 OP X-19 OP X-21 OP X-23 

OP X-23 OR X-27 OR X-29 OR X-31 

OR X-33 OR X-35 THEN PRINT RT 1, 

11;“ IMPAIR" 

930 IF X<-36 AND X>-19 THEN PRI 
NT AT 12,3;" PASSE " 

960 IF X>0 AND X<*18 THEN PRINT 
AT 1,3;" MANQUE" 

970 IF X>0 AND X<-12 THEN PRINT 
AT 1,27;"P";AT 12,27;"P" 

980 IF X<-24 AND X>«13 THEN PRI 
NT AT 2,28; "M"; RT 11,28; "M" ___ 

990 IF XC-36 AND X>-23 THEN PRI 
NT AT 3,29; "D"; RT 10,29;"D" 1120 

1000 IF X-l OR X-4 OP X-7 OR X-7 
OR X-10 OR X-13 OR X-16 OP X-19 
OR X-22 OR X-23 OR X-28 OR X-31 
OR X-34 THEN PRINT AT 9,27;“ " 

1005 REM 

1006 REM 

1010 IF X-2 OR X-3 OR X-8 OR X-l 

1 OR X-14 OR X-17 OR X-20 OR X-2 

3 OR X-26 OR X-29 OR X-32 OR X-3 

5 THEN PRINT AT 6,27;; RT 7,27 

; 

1020 IF X-3 OR X-6 OR X-9 OR X-l 

2 OR X-13 OR X-18 OR X-21 OR X-2 

4 OR X-27 OR X-30 OR X-33 OR X-3 

6 THEN PRINT AT 4-27;" " 

1030 GOTO 490 

1040 PRINT AT 16,4;"I".AT 17,2;" 

^ta";AT 18,4; "I"; AT 19,4;"»“ 

1050 RETURN 

1060 PRINT AT 16-3;". »";AT 17,3 
j" V" ; AT 18,3; 'VS " 

1070 RETURN 

1080 PRINT AT 13,2;" "; AT 16, 

1;" "j AT 17,1;“ " ; AT, 1 

8,1;" ";AT 19,1;" "; AT 

20 , 2 ;" 



1090 RETUftN 
1093 REM 
1100 PRINT AT 



1110 PRINT 
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1120 WTURN 

1130 9AVI "ROULITTt" 



ETURN 

OUE "ROULETTS” 


Hippodrome 

Encore un programme de J. Jeannin 
pour d'autres passionnés du jeu. Il 
simule une course de tiercé et distribue 
les gains. 



10 REM 101005100382 J.JERNNIN 
20 REM “HIPPODROME" 

30 SLOW 
30 LET R=0 
60 LET R=R+1 

70 PRINT RT 0,0;"deP*rt COUR 
SE H : arriveel 







490 LET C-0 



1 



300 PRINT RT 14,0;" 

“;AT 14,0;"D 

EPRPT" 1 ' 

310 PAUSE 100 


— 

1 





1 



320 PPINT AT 14.0; w "; AT 1 


M 

1 








530 LET C-C+l 

340 PRINT RT 0,20;C 


RONOLOGIOUEMENT VOSCHEVRUX,SUP " 

"1""<3) VOS INITIRLESSUR 1 MISEZ 
, MIN ! 10 MRX■99UNITEES 

CHEVAUX B0 

■ m D> K3 KTI m JOUEURS 

GAIN 

COTE- 

- MISE 

80 PRINT RT 0.7;R • 

90 IF R>1 THEN PRINT RT 0,13;“ 
S" 

100 LET P-10 
110 DIM J*< 6.3 > 

120 DIM M< 6 > 

130 INPUT J0O> 

140 INPUT M<1 > 

130 PRINT RT 18,9; J*r 1 >;AT 21M 
0 ; Mr 1 > 

160 INPUT J*<2> 

170 INPUT M(2> 

180 PRINT RT 18,13; J*<2>;RT 21, 

14 ; Mr 2 > 

190 INPUT J*<3> 

200 INPUT MO) 

210 PRINT RT 18,17; J*<3>;RT 21, 
18; M< 3) 

220 INPUT J*<4> 

230 INPUT M< 4 > 

240 PRINT RT 18,21 ; J*'4>;RT 21, 
22 ; M< 4 > 

230 INPUT J*<3) 

260 INPUT MC 3) 

270 PRINT RT 19,23;J*'3);RT 21, 
26; Mr 3 ) 

280 INPUT J*<6> 

290 INPUT M< 6 ) 

300 PRINT RT 18,29;J*r6>;AT 21, 
30; Mr 6 ) 

310 PRINT RT 13,0;" 

“; RT 14,0;"» 
AFFICHAGE DE LR DERNIERE""COTE" 

M N • 

320 PAUSE 50 

330 LET MT-Mr 1 )+M< 2 )+M< 3 >+M< 4 >♦ 
MT 3 >*M< 6 > 

340 LET GT-INT (( MT/100>»90) 

330 LET GX-MT-CT 
360 LET Gl-GT-MCl) 

370 LET G2-GT-M(2> 

380 LET C3«GT-M<3> 

390 LET G4-GT-MC4) 

400 LET G3-GT-M<3> 

410 LET G6-GT-MC6) 

420 IF G1>99 OR G2>99 OP G3>99 
OR G4>99 OR G3>99 OR G6>99 THEN 
LET P-P-l 

430 PRINT RT 19,P;Cl ; RT 19,P+4; 
G2;AT 19,P+8;G3;RT 19,P+12;G4;AT 
19,P+16;G3;RT 19,P+20;G6;RT 14, 


0 ; " 

"; RT 14,0;“LES CHEVAUX SONT S 

OUS LES ORDRES" 

440 PAUSE 100 

430 DIM X< 6 ) 

460 FOR N-l TO 6 
470 LET X< N )“2 
480 NEXT N 


330 IF X<1)»14 OP X<1>-13 OR X< 

1 )-28 OR X< 1 >«29 OP Xr 1 >-42 OP X 
<1>-43 THEN GOTO 570 
560 GOTO 620 

570 IF X< 1 >“14 OP X< 1 >-15 THEN 
LET X< 1 >-2 

380 IF X< 1 >-28 OP xr 1 >-29 THEN 
LET X< 1 >-16 

390 IF X< 1 >=42 OR Xr 1 >-43 THEN 
LET Xr 1 >-30 

600 PRINT RT 13,0;"CHEVAL NI SU 
R UNE HRIE,PENALISER";RT 1,1;“ 

610 PAUSE 130 

620 LET VI-INT rPND»7>+l 

630 IF Vl-1 THEN PRINT RT 13,0; 

M 

640 IF Vl-2 OP VI-3 THEN PRINT 
RT 13,0;" 

"; RT 16,9;"PRS" 

630 IF VI—4 OR VI=3 THEN PRINT 
RT 13,0;" 

"; RT 16,9;"TRO" 

660 IF Vl-6 OR VI-7 THEN PRINT 
RT 13,0;" 

"; RT 16,9;"GRL" 

670 LET Vl-Vl-1 

690 IF Vl-0 THEN GOTO 730 

690 LET xri>-xri>+i 

780 UNPLOT Xri>-1,40 

710 PLOT Xri>,40 

720 GOTO 670 

730 IF XO»-37 THEN PRINT RT 1 

6 , 0 ;" ■ 

" ; RT 13,0, "TPRYEZ ET RPPIJYE 
Z SUR UNE TOUCHE"; RT 14,0;"LE N. 

1 ";J*r1>; RT 14,11;"GRGNE LR SOM 

ME DE ";GT;RT 13,0;"10x100 RU PR 
OPRlETAIREr2X81> ";GX 

740 IF Xri»-37 THEN GOTO 1760 

730 if xr2>-i4 op xr2>-i3 op xr 

2 >-28 OR xr2>-29 OR xr2>-42 OR X 
r2>-43 THEN GOTO 770 

760 GOTO 820 

770 IF Xr2>-14 OR Xr2>-13 THEN 
LET Xr2>-2 

780 IF Xr2>-28 OP Xr2>-29 THEN 
LET Xr2>-16 

790 IF Xr2>-42 OR Xr2>»43 THEN 

LET Xr2>-30 

800 PRINT RT 13,0;"CHEVAL N2 SU 
R UNE HRIE,PENALISER";RT 3,1;" 

H 

810 PAUSE 130 

820 LET V2-INT <RND*7>-t-l 

830 IF V2-1 THEN PRINT RT 13,0; 


V 


13 


";AT 16,13;" 

840 IF V2-2 OR V2-3 THEN PRINT 
AT 13,0;" 










































Nos lecteurs ont du génie 


";AT 16,13;"PRS" 

030 IF V2-4 OR V2-S THEN PR INT 
BT 13,0;" 

";BT 16,13)"TRO" 

060 IF V2-6 OR V2-7 THEN PRINT 
BT 13,0;“ 

" ; BT 16,13;"CAL" 

070 LET V2-V2-1 

880 IF V2-0 THEN GOTO 930 

890 LET XC 2>-XC 2 >+l 

900 UNPLOT X< 2>-l,36 

910 PLOT XC 2 >, 36 

920 GOTO 870 

930 IF XC 2 >>-37 THEN PRINT RT 1 

g 0 ■ H ■ 

“jRT 13,0 j"TPRYEZ ET RPPUYE 
2 SUR UNE TOUCHE";RT 14,0;"LE N. 

2 ";JBC2>;RT 14,11;"GAGNE Lfl SOM 

ME DE “;GT; RT 13,0)"107100 RU PR 
OPRIETRIRECZX81> » ;GX 

940 IF XC2>>-37 THEN GOTO 1760 
930 IF XC 3 >*14 OR XC3>«13 OR XC 

3 >-28 OR XC3>=29 OR XC3>-42 OR X 
<3>-43 THEN GOTO 970 

960 GOTO 1020 
963 REM 
966 REM 

970 IF XC 3 >-14 OP X< 3 )=13 THEN 
LET XC 3 >-2 

980 IF XC 3 >-28 OP XC3>=29 THEN 
LET XC 3 >-16 

990 IF X< 3 >-42 OR XC3>-43 THEN 
LET X< 3 >-30 

1000 PRINT RT 13,0;"CHEVAL N3 SU 
R UNE HAIE,PENALISER”J RT 3,1;" 

m 

1010 PRUSE 130 

1020 LET V3-INT CRND*7>+1 

1030 IF V3-1 THEN PRINT RT 13,0j 

H 

";RT 16,17;” 

1040 IF V3-2 OP V3-3 THEN PRINT 
RT 13,0;" 

"; RT 16-17;"PRS” 

1030 IF V3-4 OR V3-3 THEN PRINT 
RT 13,0;” 

"; RT 16,17;"TRO” 

1033 REM 
1033 REM 

1060 IF V3-6 OR V3-7 THEN PRINT 
RT 13,0;” 

"jRT 16,17;"GRL" 

1070 LET V3-V3-1 

1080 IF V3-0 THEN GOTO 1130 

1090 LET XC 3 >-XC 3 >♦ 1 

1100 UNPLOT XC 3 >-l,32 

1110 PLOT XC 3 >, 32 

1120 GOTO 1070 

1130 IF X<3»-37 THEN PRINT RT 1 

6 , 0 ;" ■ 

";RT 13,0;"TPRYEZ ET RPPUYE 

2 SUR UNE TOUCHE";RT 14,0;"LE N, 

3 ";Ji< 3 >; RT 14,11;"GRGNE Lfl SOM 
ME DE ”;GT;RT 15,0;"107100 RU PR 
OPR IETRIREC 2X81> ";GX 

1140 IF X< 3 >>-57 THEN GOTO 1760 
1130 IF X< 4 >-14 OR XC 4 >-13 OP XC 

4 >-20 OR XC 4 >-29 OR XC4>-42 OP X 
(4>-43 THEN GOTO 1170 

1160 GOTO 1220 
1163 REM 
1166 REM 

1170 IF XC 4 >-1 4 OR XC 4 >-15 THEN 
LET XC 4 >-2 

1100 IF XC 4 >-28 OR XC 4 >-29 THEN 
LET XC 4 >-16 

1100 IF XC 4 >-42 OR XC 4 >-43 THEN 

LET X<4>-30 


1200 PRINT BT 13,0;"CHEVAL N4 SU 

R UNE HBIE,PENALISER";RT 7,1;” 

1210 PRUSE 130 

1220 LET V4-INT CRND*7>+1 

1230 IF V4-1 THEN PRINT RT 13,0 

M 

”; RT 16,21;” 

1240 IF V4-2 OR V4-3 THEN PRINT 
RT 13,0;” 

“; RT 16,21;"PRS" 

1230 IF V4-4 OR V4-3 THEN PPINT 
RT 13-0;" 

";AT 16,21;"TRO” 

1235 REM 

1260 IF V4-6 OR V4-7 THEN PRINT 
RT 13,0)" 

"; RT 16,21;"GRL" 

1270 LET V4-V4-1 

1280 IF V4-0 THEN GOTO 1330 

1290 LET XC 4 >-XC 4 >+l 

1300 UNPLOT XC 4 >-l,28 

1310 PLOT XC 4 >, 28 

1320 GOTO 1270 

1330 IF XC 4 >>-57 THEN PRINT RT 1 

6 , 0 ;" ■ 

“; RT 13,0;"TPRYEZ ET RPPUYE 
Z SUR UNE TOUCHE";RT 14,0;"LE N. 
3 “; JBC5>;RT 14,11 "GAGNE LR SOM 
ME DE ”;GT; RT 13,0;"107100 RU PP 
OPRIETRIREC 2X81> ";GX 

1340 IF XC 3 >>-37 THEN GOTO 1760 
1530 IF XC 6 >-14 OR XC6>=13 OR XC 
6 >-28 OR XC 6 >-29 OP XC6>=42 OP X 
C 6 >-43 THEN GOTO 1370 
1360 GOTO 1620 

1370 IF XC6>=14 OR XC6T-1S THEN 
LET XC 6 >=2 

1380 IF XC 6 >-28 OR XC6>-29 THEN 
LET XC 6 >= 16 

1390 IF XC 6 >-42 OP XCS^S THEN 
LET XC 6 >-30 

1600 PRINT RT 13,0;"CHEVRL N6 SU 
R UNE HAIE,PENALISER";RT 11,1;" 

II 

1610 PAUSE 130 

1620 LET V6-INT CPNDT7H1 

1630 IF V6-1 THEN PRINT RT 13,0; 

H 

"; RT 16,29;" " 

1640 IF V6-2 OP V6=3 THEN PRINT 
RT 13,0;" 

N.ÛT 1 Ç OQ•"DflCf 

1630 IF V6-4 OR V6-3 THEN PRINT 
RT 13,0;" 

"; RT 16,29;"TRO" 

1660 IF V6-6 OR V6=7 THEN PRINT 
RT 13,0;" 

";AT 16,29)"GRL" 

1670 LET V6-V6-1 

1680 IF V6-0 THEN GOTO 1730 

1698 LET XC 6 >-X< 6 >+l 

1700 UNPLOT XC 6 >-l,20 

1710 PLOT XC 6 >,20 

1720 GOTO 1670 

1730 IF XC6 >>-57 THEN PRINT RT 1 
3,0; " 

■ "; RT 13,0;"TPRYE2 ET RPPUYE 
Z SUR UNE TOUCHE";RT 14,0;"LE N. 
6 ";JBC 6 >; RT 14,II;"GAGNE LR SOM 
ME DE ";GT; RT 13,0;"10/100 RU PP 
OPRIETAIREC2X81> “;GX 

1740 IF XC 6)>-37 THEN GOTO 1760 

1730 GOTO 330 
1760 PRUSE 4E4 
1770 CLS 

1780 PRINT RT 7,0 ;"TVOULEZ VOUS 
UNE NOUVELLE COURSE",,,"OUI - "" 


O""",,"NON - ""N.. 

1790 INPUT PB 

1800 IF RB-"N" THEN GOTO 1840 
1810 PRINT RT 13,3;"REPONSE • OU 
I" 

1820 PAUSE 230 
1830 GOTO 60 

1840 PRINT RT 13,3;"REPONSE ■ NO 
N" 

1830 PRUSE 230 
1860 CLS 

1870 PRINT RT 17,0;“ RU REVOI 
R ET fl BIENTOT" 

1880 STOP 

9999 SR VE "HIPPODPOMe" 



Recherche 

opérationnelle 

Ce programme permet d'optimiser, de 
gérer les temps nécessaires à diverses 
tâches en fournissant l'ordre dans lequel 
elles doivent être effectuées. Ceci dans 
le but d'augmenter le rendement. 

10 LET N=20 
20 DIM S(N) 

30 DIM F<N) 

40 DIM DCN) 

50 DIM C*(N,9> 

60 DIM E(N) 

70 DIM LCN) 

80 DIM G(N) 

90 LET N9=N 
100 GOSUB 730 
110 GOSUB 550 
120 LET C2=0 
130 LET C3=0 
140 LET C1=0 
150 FOR 1=1 TO N 
160 LET M1=E(S(I>)+D(I) 

170 IF E(F(I> ><—Ml THEN LET E< 
F CI)>=M1 
180 NEXT I 

190 LET LCFCN))=ECF(N)) 

200 FOR I=N TO l STEP -1 
210 LET L1=S(I) 

220 LET M2-L(F <I))—D CI) 

230 IF L(L1)>=M2 THEN LET LCLl 
)«M2 

240 IF LCLl)=0 THEN LET LCLl)- 
M2 

250 NEXT I 
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260 FOR 1=1 TO N 
270 LET G(I)=L(F(11)—E <S(I)> —D( 
I) 

280 IF G < I > =0 THEN LET C1=C1+1 
290 NEXT I 

300 REM ANALYSE DU 

CHEMIN CRITIQUE 

310 PRINT ” DE VERS . DPT - 
FPT - MOU" 

320 FOR 1=1 TO N 
330 PRINT S <I>; TAB 7}F(I)}TAB 1 
1;E(S(I));TAB 15)L(F <I)> S TAB 19} 
G<I>}TAB 23}C*<I) 

340 NEXT I 
350 FOR 1=1 TO N 

COUR 360 IF L (F ( I > ) >C3 THEN LET C3= 
L(F ( I ) ) 

MW 370 NEXT I 

380 PRINT " LA LONGUEUR DU CHEN 
■■■ IN CRITIQUE" 

PRINT “ EST s ";C3 
PRINT TAB 151" IL VA DE 

FOR 1=1 TO N 
IF G<I)=0 THEN GOTO 440 
NEXT I 

PRINT TAB 23}S <I)}TAB 28}F< 

LET C2=C2+1 
IF I>N THEN GOTO 530 
FOR J=1 TO N 

IF S(J)<>F<I> THEN GOTO 52 

IF G(J)< >0 THEN GOTO 520 
LET I=J 
GOTO 440 
NEXT J 

IF C10C2 THEN PRINT " PLU 
S D""UN CHEMIN CRITIQUE" 

540 STOP 

550 PRINT " DE VERS DUREE DE 
SIGNATION" 

560 FOR 1=1 TO N9 
570 IF S(I)=0 AND F<I>=0 THEN 
GOTO 690 

580 IF S(IKF(I) THEN GOTO 610 
590 PRINT " NUMERO NON CROISSAN 
T" 

600 STOP 

610 LET E(S(I> > =0 
620 LET E < F <I))=0 
630 LET L(S(I)> =0 
640 LET L < F(I)> =0 
650 PRINT S(I)5 TAB 7}F<I)}TAB 1 
4}D <I)}TAB 23î C*(I) 

660 NEXT I 
670,LET N=N9 
680 GOTO 700 
690 LET N=I—1 

700 PRINT " NOMBRE DE TACHES = 
"IN 

710 RETURN 

720 REM ENTREE DES DONNEES 
730 LET S<1)=1 
740 LET F<11=2 
750 LET D(1> =5 
760 LET C*<1)-"LEVAGE" 

770 LET S(2)=1 
780 LET F(2)=3 
790 LET D(2)=9 
800 LET C*(2)«"DEMONTAGE" 

810 LET S(3)=2 
B20 LET F <3>*3 
830 LET D(3)=5 
840 LET C*<3)="ECH.ROUES" 



850 LET S(4)=2 
860 LET F < 4 > =5 
870 LET D(4)=4 
880 LET C*<4)="REVISSAGE" 
890 LET S(5)=3 
900 LET F(5)=4 
910 LET D(5)=6 
920 LET C*(5)-"DESCENTE" 
930 LET S(6)=4 
940 LET F(6)=5 
950 LET D(6> =1 
960 LET C*<6>="SERRAGE" 
970 LET S < 7 > —0 
980 LET F <7> =0 
990 LET D(7)=0 
1000 LET C*(7)="*" 

1010 RETURN 
9090 SAVE "CHEMIt" 



REC* MICHE OPEHRTlOWEUe 

cushiu cRtnooe on ut un ôrrrue 


Résolution de 
l'équation du 3ème 
degré. 


1 REM RESOLUTION D"EQUATION 

2 REM DU TROISIEME DEGRE. 

4 REM (C) ECHOS SINCLAIR 

5 REM ET L"AUTEUR 

e REM 

20 PRINT "RESOLUTION DE L""EQU 
ATION" 

25 PRINT "- 

______ Il 

30 LET A*="COEFFICIENT" 

35 PRINT TAB 16; "3" 

40 PRINT A*;" DE X ? "j 
50 INPUT A 
60 PAINT A 

70 IF AO0 THEN GOTO 100 
80 PRINT "L”"EQUATION N""EST P 
AS DE DEGRE 3." 


85 

PRINT 




90 

GOTO 510 



100 

PRINT 

TAB 

16)"2" 


105 

PP INT 

fl*; " 

DE X 

? ") 

110 

INPUT 

B 



120 

PRINT 

B 



130 

PRINT 




135 

PRINT 

A*; " 

DE X 

? ”) 

140 

INPUT 

C 



150 

PRINT 

C 



160 

PRINT 




165 

PP INT 

A*; " 

CONSTANT ? ") 

170 

INPUT 

D 



180 

PRINT 

D 



190 

PRINT 




200 

PRINT 

"ATTENDEZ 

JE REFLECHI 


9 • • • 

210 LET B=B^< 3*A> 

220 LET C-C/A 

230 LET D-D^A 

240 LET P-C-3*B*B 

250 LET Q-D-C*B+2*B*B*B 

260 LET DI-4*P*P*P«27-»Q*Q 

270 IF DI<0 THEN GOTO 400 

275 PRINT 

280 PRINT "EQUATION A 1 SEULE R 
ACINE REELLE" 

285 PRINT 

290 PRINT "JE LA CALCULE." 

300 LET U—Q/2-KSQR <DI/'3)V6 
310 LET V—Q/2-<SQR <DI/'3)V6 
320 LET E=1 


330 IF U<0 THEN LET E—l 
340 LET U1-E*<<E*U:>**< 1^3>> 

350 IF V<0 THEN LET E—l 
360 LET V1-E*<<E*V>**<1X3>> 

370 PRINT "#********•• 

380 PRINT "CETTE RACINE EST ! "> 
B+U1+V1 
390 GOTO 500 

400 PRINT "EQUATION A 3 RACINES 
REELLES." * 

405 PRINT 

410 PRINT "JE VAIS LES CALCULER 

M 

415 PRINT "******************" 
420 LET H-2*SQR (-P/3) 

430 LET M-3*Q/(P*H> 

440 LET U-ACS M 
445 SCROLL 

450 PRINT "PREMIERE RACINE-”)-B 
♦H*COS CU'3> 

460 SCROLL 

470 PRINT "SECONDE RACINE-"J-B* 
H*COS <<2*PI-HJ V3> 

480 SCROLL 

490 PRINT "TROISIEME RACINE-"j- 
B+H*COS <<4*PI+UV3> 

500 SCROLL 

505 PRINT "C" "EST Y PAS DU BEAU 
TRAVAIL ..." 

507 STOP 

510 PRINT "EQUATION RIDICULE. P 
FUI I." 


PREMIER EXEMPLE 

RESOLUTION DE L"EQUATION 


3 

COEFFICIENT DE X T 1 
2 

COEFFICIENT DE X ? 2 

COEFFICIENT DE X ? 3 

COEFFICIENT CONSTANT ? 4 

ATTENDEZ JE REFLECHIS... 

EQUATION A 1 SEULE RACINE REELLE 

JE LA CALCULE. 

********* 

CETTE RACINE EST> -0.31729586 


C"EST Y PAS DU BEAU TRAVAIL ... 
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Nos lecteurs ont du génie 

- - ■ - 


Racines d'une fonction 
quelconque 

Interpolation d'Alembert 


En sous-programme ligne 600, 
LETY = fonction de x (fix)) 



1 REH RACINES D"UNE FONCTIUN 

INTERPOLATION D"ALEMBERT 

2 PEH 

3 REM <C> ECHOS SINCLAIR 

4 REM ET L"AUTEUR 

3 PEM 

20 PP INT "PREMIERE VALEUR R DE 
X T % 

30 INPUT R 
40 PPINT fi 
50 LET X»A 
«0 GOSUB «00 
70 LET FA-Y 

80 PP INT "F< " ; fl) " >»" FA 
80 PRINT "VOULEZ-VOUS PASSER fl 
Lfl DEUXIEMEVALEUR ?" 

100 INPUT R* 

110 PRINT R* 

120 IF fl»="NON" THEN GOTO 20 
130 IF A*="OUI" THEN GOTO 160 
140 PPINT "REPONSE INCOMPREHENS 

IBLE.« 

160 PPINT "DEUXIEME VALEUR B DE 
X ? ") 

170 INPUT B 
180 PAINT B 

180 IF ROB THEN GOTO 220 
200 FRINT "VALEUR REFUSEE : ""R 
< > B"". " 

210 GOTO 160 
220 LET X»B 
230 GOSUB 600 
240 LET FB-Y 

250 PAINT "F<“iB;")»"JFB 
260 IF RBS <FB-FR >>lE-7 THEN GO 
TO 290 


270 PRINT "CHOISISSEZ UNE AUTRE 
VALEUR DE B. F<B>-F<H> EST TRO 
P PETIT” 

280 GOTO 160 
290 PRINT 

300 PRINT “ VOULEZ-VOUS PASSER 
fl L""INTER- POLRTION ?” 

310 INPUT fl* 

320 PPINT R» 

330 IF fi*«"NON" THEN GOTO 160 
340 IF fl*»"OUI" THEN GOTO 370 
350 PRINT “REPONSE INCOMPREHENS 

IBLE.” 

360 GOTO 300 
370 CLS 
373 CLS 

380 PAINT "ON COMMENCE LE CRLCU 
L fl PARTIR DE fl»" j fl)" ET B=")B 
383 IF FB-FR»0 THEN GOTO 490 
390 LET C»B+< fl-B >*FBx< FB-FR > 

400 LET X»C 
410 GOSUB 600 

420 PPINT "POUR Lfl VALEUR INTER 
POLEE, F< X > VAUT " i Y 
430 PRINT "CE DEGRE DE PPECISIO 
N EST-IL SUFFISANT ?" 

440 INPUT fl* 

450 PRINT fl* 

460 IF fl*="NON“ THEN GOTO 310 
470 IF A*="OUI” THEN-GOTO 490 
473 PAINT "REPONSE INCOMPREHENS 

IBLE." 

4S0 GOTO 430 
483 PAINT 

490 PRINT "CALCUL TEPMINE, Lfl S 
OLUTION EST ")C 
500 STOP 

510 PAINT "NOUVELLE INTERPOLATI 
ON" 

320 LET fl=B 

530 LET Ffl=FB 

540 LET B=C 

550 LET FB»Y 

360 GOTO 390 

600 PEM FONCTION Y-F'X) 

610 LET Y«2T<X*X> 

620 RETURN 


NOTA LIGNE 610 FONCTION EXEMPLE 


Puissances de 2 
imprimées avec 32 
chiffres significatifs 
jusqu'à 2106. 

Programme (à gauche) utilisant la 
découpe du résultat en 4 tranches de 8 
chiffres chacune. A, B, C et D. Pour 
chaque tranche, sauf D, il y a MA (MB..) 
qui est le chiffre de plus haut poids, un 
« flag » (FA, FB..) qui passe à 1 quand le 
MA (MB..) dépasse 5 et une retenue 
(CA, CB..) si la multiplication de A (B..) 
par 2 donne 1E8 ou plus. Pour enchaîner 
les chiffres, il faut les transformer en 
chaînes alphanumériques A$ (B$..). Les 
lignes 430-450, 480 500, 530-550 sont 
destinées à compléter, si nécessaire, les 
A$ (B$..) au format à 8 caractères si le A 


(B..) comporte des zéros en tête qui 
seraient éliminés en passage en A$. 

0 REM 

1 REM PUISSANCE DE 2 AVEC 

2 REM 32 CHR. SIGNIFICATIFS 

3 REM 

4 REM (C) ECHOS SINCLAIR 

5 REM ET L"AUTEUR 

6 REM 

20 LET•A»1 
30 LET B-0 
40 LET C=0 
50 LET D»0 
60 LET FA=0 
70 LET FB=0 
80 LET FC»0 
90 LET T*»" " 

100 FOR 1-1 TO 108 
110 LET MA»INT ( A/1E7 > 

120 IF MA>-3 THEN GOTO 160 

130 LET A«2*A 

140 LET CA-0 

150 GOTO 190 

160 LET CA-1 

170 LET FA-1 

180 LET A»2*A-1E8 

190 IF FA=0 THEN GOTO 520 

200 LET MB-INT CB^1E7> 

210 IF MB>»3 THEN GOTO 250 

220 LET CB-0 

230 LET B«2*B+CA 

240 GOTO 280 

250 LET CB-1 

260 LET FB-1 

270 LET B»2*B-1E8+CA 

280 IF FB=0 THEN GOTO 470 

290 LET MC»INT <01E7> 

300 IF MC>-5 THEN GOTO 340 
310 LET CC-0 
320 LET C=2*C+CB 
330 GOTO 370 
340 LET FC-1 
350 LET CC-1 
360 LET C»2*C-1E8+CB 
370 IF FC-0 THEN COTO 420 
380 LET D»2*D+CC 
390 IF D>9.999E7 THEN GOTO 720 
400 LET D*»STR* D 
420 LET C*-STR* C 
430 IF FC-0 OR LEN B*-B THEN GO 
TO 460 

440 LET C*-"0"+C* 

450 GOTO 430 
470 LET B*»STR* B 
480 IF FB-0 OR LEN B*-0 THEN GO 
TO 510 

490 LET B*-"0"+B* 

500 GOTO 480 
520 LET A*»STP* A 
530 IF FA-0 OR LEN fl*«8 THEN GO 
TO 560 

540 LET fl*="0"+fl* 

550 GOTO 530 

560 IF Ffl-0 THEN GOTO 650 
570 IF Ffl-1 HND FB-0 THEN GOTO 
630 

580 IF FB-1 AND FC=0 THEN GOTO 
610 

590 LET T*-D*+C*+B*+A* 

600 GOTO 660 

610 LET T*=C*+B*+H* 

620 GOTO 660 
630 LET T*=B*+ft* 

640 GOTO 660 
650 LET T*=A* 

660 LET L-LEN T* 

664 LET LI-LEN STR* I 

666 IF L+LI>=31 THEN GOTO 680 
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668 PRINT I;TRB 32-L;T* 

670 GOTO 700 

680 PRINT Ij". 


690 PRINT TRB 32-UT* 

700 NEXT I 
710 STOP 

720 PRINT Ij" TROP GRAND." 
730 STOP 

PREMIER EXEMPLE > 

1 

2 

3 

4 
3 
6 

7 

8 

9 

10 


2 

4 

8 

16 

32' 

64 

128 

236 

312 

1024 


SECOND EXEMPLE > 

89 618970019642690137449362112 

90 1237940039283380274899124224 

91 2473880078370760349798248448 

92 4931760137141321099396496896 

93 9903320314283042199192993792 

94 1980740620366084398303987384 

93 3961481237132160796771975168 

96 . 

79228162314264337393343930336 

97 . 

138436323028328673187087900672 

98 . 

316912630037037330374173801344 

99 . 

633823300114114700748331602688 

100 . 

1 267630600228229401496703203376 

101 . 

2333301200436438002993406410732 

102 . 

3070602400912917603906012821304 

103 . 

10141204801823033211973623643008 

104 . 

20282409603631670423947231286016 

105 . 

40364019207303340047094302372032 

106 . 

81129638414606601693709003144064 
107 TROP GRAND. 


Produit « double 
précision » à seize 
chiffres significatifs. 

Les facteurs U et V sont entiers et 
exprimés en 8 chiffres. 


2 REM DOUBLE PRECISION 

3 REM - 

4 REM <C> ECHOS SINCLAIR 1983 

5 REM ET L"RUTEUR. 

6 REM 

20 LET F=1E4 


30 PRINT "PREMIER FRETEUR U T 

" ) 

40 INPUT U 
50 PRINT U 

60 PRINT "SECOND FACTEUR V ? 

" j 

70 INPUT V 
80 PRINT V 
90 LET VH»INT <V/F> 

100 LET VL»V-F*VH 
110 LET UH»INT (U.'F) 

120 LET UL»U-F*UH 
130 LET PH»UH*VH 
140 LET PL«UL*VL 
150 LET I-VL*UH+VH*UL 
160 LET CI»0 

170 IF I<1E8 THEN GOTO 200 

180 LET CI-1 

190 LET I=I-1E8 

200 LET IH-INT CI^F) 

210 LET IL»I-F*IH 
220 LET RL-PL+F*IL 
230 LET CL=0 

240 IF RL<1E8 THEN GOTO 270 

250 LET CL-1 

260 LET RL-RL-1E8 

270 LET RH»PH*CL*IH«-F*C1 

280 LET L*=STR* PL 

290 IF LEN L9-8 THEN GOTO 320 

300 LET L»-"0"+L* 

310 GOTO 290 

320 LET R*»STR* RH+L* 

330 PRINT 

340 PRINT "U X V»";P* 

350 STOP 


On décompose U et V comme suit : 

U = UH x 10 4 + UL 
V = VHxlO» + VL alors 
UV = UH x VH x 108 + (UH x VL + UL 
x VH( 10 4 

Le résultat partiel UH.VL + UL.VH est 
désigné par I et décomposé aussi en 

I = IHxlO 4 + IL 

+ éventuellement retenue Cl x 10 8 


Les lignes 280 à 310 sont destinées à for¬ 
mater la partie basse du résultat (RL) lors 
de sa transformation en L$ ■, en rajou¬ 
tant des zéros en tête si nécessaire. 



® Dans notre numéro 
^ nous espérons pouvoir faire échos de vos 
*9 lettres qui, rassemblées sous la rubrique 

05 


O 

Z 


Exemple avec valeurs intermédiaires 
dans le cas où Cl = 0. 


PREMIER FRCTEUR U ? 23384671 
SECOND FRCTEUR V ? 17398772 


U X V»441662103024012 


U-87612343 
V-67319864 


UH-8761 UL-2343 

VH-6731 VL-9864 


1-2249399 
IL-9399 
PH-39143311 
RL»19121080 
RH-39133736 


IH-224 

CI-1 

PL-23131080 

CL-1 

L0-19121080 


R9-3913373619121000 


Second exemple dans le cas où 
Cl = 1. 


PREMIER FRCTEUR U ? 87612343 
SECOND FRCTEUR V ? 67319864 


U X V-5915373619121880 

U-23384671 
V»17398772 
UH-2338 
VH»1739 
1=30386205 
IL=6205 
PH-4413382 
RL»3024012 
RH-4416621 


UL-4671 

VL-8772 

IH-3038 

CI*0 

PL-40974012 

CL-1 

Lt-03024012 


P»=441662103024012 



g ECRIVEZ-NOUS NOMBREUX. 
Z 
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Dès que le programme est chargé, appa¬ 
raît en haut à gauche de l'écran le cur¬ 
seur clignotant, il marque la position 
d'écriture. 

L'écriture d'un caractère est obtenue par 
la pression de la touche correspondante 
seule ou accompagnée de SHIFT (pour 
les symboles en rouge sur le clavier). 

En maintenant une touche enfoncée, 
vous obtiendrez une répétition du carac¬ 
tère. 

La touche BREAK (SPACE, $) bloque 
la progression du programme. 

Le caractère £ est obtenu par la touche 
NEWLINE. Un espace est obtenu par 
(SHIFT + NEWLINE). 

Le déplacement du curseur dans les 4 
directions s'obtient par le 5, 6, 7, 8 en 
position SHIFT. Le curseur se déplace 
dans le sens des flèches. 

Le curseur efface les caractères sur 
lesquels il passe. 

Ecriture géante : la taille du caractère 
placé directement à la gauche du cur¬ 
seur sera multipliée par 4 lors de la 
manœuvre de la touche STEP (SHIFT + 
E). 

Mode graphisme : il permet d'obtenir 
tous les éléments obtenus par le mode 
G. habituel. 

Pour l'obtenir, deux possibilités : 

1 - Touche Graphics (SHIFT + 9). Le 
curseur apparaît en vidéo inverse. 

Cette touche est la seule qui permet¬ 
te le retour du mode écriture. 

2 - Touche ** : (SHIFT + H). Appa¬ 
raissent successivement à la 24ème ligne 
de l'écran 4 symboles. A l'arrêt de la 
pression sur la touche **, vous serez en 
un . de graphisme et le caractère présent 
à la 24ème ligne témoigne de la position 
que prendra le curseur après écriture 
d'un caractère. 

Caractère de la 24ème ligne : 

» : déplacement vers la droite 
« : déplacement vers la gauche 
J : déplacement vers le bas 
T : déplacement vers le haut. 

Vous pourrez tracer dans les 4 directions 
plus facilement. 

Lors d'un tracé vertical (Sélection J ou 
T) à la 1ère ou à la 22ème ligne le curseur 
est représenté par Z immobile. 

Le retour en mode écrit ne se fait alors 


dès la mise au repos du clavier et il suffit 
de choisir la nouvelle direction du tracé 
par la touche** 

Inversion vidéo : 
touche AND (SHIFT + 2) 

Exemples d'utilisation : 

1 - Tracer rapidement des lignes sur 
l'écran grâce au curseur. 

a) inverser la vidéo 

b) déplacer le curseur 

c) revenir en vidéo habituelle. 

2 - Obtenir des caractères (même 
géants) en vidéo inverse sans passer par 
le mode graphisme. 

a) inverser la vidéo 

b) écrire les caractères 

c) rétablir la vidéo. 

Manœuvre «INSERT » « DELET » : 

ajout et retrait d'espaces à la droite du 
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curseur. La touche " " (SHIFT + Q) fait 
apparaître à la 24ème ligne et successi¬ 
vement les symboles D : suivi de + ou - 
(une nouvelle pression inverse le signe). 
La touche STOP (SHIFT + A) remplace 
le curseur par le signe présent à la 24ème 
ligne. Le contenu de l'écran à la droite 
du curseur est alors décalé d'une posi¬ 
tion vers la droite ( D : + ) ou vers la gau¬ 
che (D Pour un plus grand déplace¬ 
ment gardez la touche A (sans SHIFT) 
enfoncée. Vous ralentirez le mouvement 
en pressant STOP (A + SHIFT). Le 
Retour au curseur clignotant s'obtient 
par la pression d'une quelconque tou¬ 
che, le A excepté. 

Les écrans mémoire : ils sont au nom¬ 
bre de 13. 

— 12 sont contenus dans un tableau 






indicé A$( 12. 704), 

— le 13ème est B$ et possède quelques 
propriétés remarquables. 

B$ = seul à pouvoir être chargé avec le 
contenu de l'écran (Touche FAST. 
[SHIFT + F]) il permet ensuite d'affec¬ 
ter l'un des 12 autres écrans. 

La touche SLOW (SHIFT + DI permet 
la transcription à l'écran du contenu de 
B$. En début de 24ème ligne s'inscrira 
un B$. En début de 24ème ligne s'ins¬ 
crira un B$, le curseur se trouvera en 
début de 23ème ligne dernière position 
d'écriture, elle permet de tenir le curseur 
en dehors d'un écran édité. 

La mise à « Blanc » de B$ est obtenue 
par la touche TO (SHIFT + 4). 


ECRIT 


2 REM 

3 REM ECHOS SINCLRÏP 198? 

4 REM <C> P. RRRRNHRPO 
3 REM 

9 GOSUB 3008 

10 LET X-PEEK 1639S+256TPEEK 1 
6397 

15 FOR N-X TO X+1000 

16 IF N>X+727 THEN LET N-X+727 

17 IF N<*X THEN LET N-X+l 

.18 IF E-8 PNC 1 PEEK <N-t >0118 
THEN LET B*TN-X-1-INT ((N-X-lV3 
3>>-CHR* PEEK (N-1> 

20 IF PEEK N-118 THEN NEXT N 

21 POKE N.E+13 

22 FOR 8=0 TO 13 

23 IF INKEY*<>"" THEN GOTO 58 

24 NEXT 8 
23 POKE N,0 

26 FOR 8=0 TO 4 

27 IF INKEY*<>"" THEN GOTO 38 

28 NEXT 8 

29 GOTO 21 

30 LET C-COPE INKEY* 

33 POKE N,0 

60 POKE 16883,C 

78 IF C<11 OR 063 THEN GOTO U 
SR 16886 

88 POKE N,C 

83 IF E=3 THEN GOTO 188 
90 NEXT N 
100 LET N*N-1 
110 GOTO 16 
120 LET N-N-33 
130 GOTO 16 
140 LET N-N+33 
150 GOTO 16 
160 LET C=12 
170 GOTO 80 
180 LET N-N+l 
190 GOSUB 2700 
200 GOTO 16 

300 REM -fcRRPHICS- 

301 REM 

304 IF E=8 BNP PEEK <N-TX>118 
THEN LET B*' N-X-T-INT <<!N-X-TV3 
3>>-CHR* PEEK <N-T> 

303 IF PEEK N-118 THEN LET N-N+ 

306 IF N+T>-X 8NP N+TKX+728 THE 
N GOTO 310 

307 POKE N, 30 

308 IF INKEY*<>"" THEN GOTO 308 
389 GOTO 16 

313 POKE N,E+143 


320 FOR 8=0 TO 13 

330 IF INKEY*< >"" THEN GOTO 400 

340 NEXT 8 

330 POKE N,128 

360 FOR 8=0 TO 4 

370 IF INKEY*<>"“ THEN GOTO 400 

380 NEXT 8 

390 GOTO 310 

480 LET B-COPE INKEY* 

410 IF B-116 THEN GOTO 16 
420 POKE 16816,B 
430 LET B-USR 16817 
440 POKE W.B 

450 IF E-4 THEN GOTO 380 

460 LET N-N+T 

470 GOTO 300 

500 LET N-N+l 

303 GOSUB 2700 

310 GOTO 300 

1800 IF E=0 THEN GOTO 1038 

1010 LET E»0 

1020 GOTO 16 

1030 LET E-8 

1840 GOTO 16 

1100 PRINT RT 0,0;B» 

1110 POKE X+760,39 

1111 POKE X+761,13 
1120 LET N-X+727 
1130 GOTO 16 

1208 LET 0=1 

1210 IF U>11 OR U<0 THEN LET U=0 
1220 LET U-U+l 
1223 REM 

1230 POKE X+760,COPE STR* INT <U 
^ 10 > 

1240 IF U>-10 THEN POKE X+761,00 
PE STR* <U-10> 

1230 IF U<10 THEN POKE X+761,C0P 
E STR* U 

1235 PRINT 8T 0,0iR*<U> 

1270 LET N-X+727 
1290 GOTO 16 

1300 IF P-l THEN GOTO 1330 
1310 LET U-U-l 
1320 GOTO 1200 
1330 LET R*OJ>-B* 

1333 PIM B*< 704) 

1336 LET N-X+727 
1340 LET P—0 
1330 GOTO 1233 
1480 LET B*< 1 >-B*< 1 > 

1430 RRNP USR 16313 
1450 GOTO 16 
1300 POKE N,0 
1310 COPY 
1320 GOTO 16 

1600 IF U<1 OR U>12 THEN LET IJ-1 
1610 LET B*=R*< U > 

1620 GOTO 1100 
1700 PIM B*r 704 > 

1710 GOTO 16 

1800 LET V—V 

1812 POKE X+768,41 

1814 POKE X+769,14 

1820 IF V>0 THEN POKE X+778 21 

1830 IF V<0 THEN POKE X+770,22 

1860 GOTO 16 

1920 POKE 16337,X+726-INT rrx+72 
6 V2S6 '■♦256 

1930 POKE 16538,INT <<X+726V236 

> 

1940 POKE 16339,N-INT < N^2S6 YrSS 
6 

1943 POKE 16340,INT rN/236> 

1946 IF V>0 THEN GOTO 2030 
I960 POKE N,22 
1978 RRNP USR 16541 
1990 IF INKEY*-"R" THEN GOTO 197 
0 

1995 IF INKEY*-"" THEN GOTO 1990 


2800 GOTO 16 
2030 POKE N,21 
2040 RRNP USR 16388 
2030 IF INKEY*-"" THEN GOTO 2050 
2060 IF INKEY*="8" THEN GOTO 204 
0 

2138 GOTO 16 

2200 POKE X+764,146 

2210 LET T-l 

2220 GOSUB 2300 

2230 POKE X+764,147 

2240 LET T—1 

2230 GOSUB 2300 

2260 POKE X+764,173 

2270 LET T-33 

2280 GOSUB 2300 

2290 POKE X+764,183 

2300 LET T—33 

2310 GOSUB 2300 

2320 GOTO 2208 

2308 FOR 8=0 TO 8 

2310 IF INKEY*-"" THEN GOTO 300 

2320 NEXT 8 

2330 RETURN 

2708 RRNP USR 16666 

2703 LET C-PEEK <N-1> 

2705 POKE 16663,0 

2718 IF 0-118 THEN GOTO 16 

2770 POKE 16663,<N-1VINT <<N-1> 

^236>*236 

2780 POKE 16664, INT <<N-1V236> 
2785 LET 2-INT <<N-XV33> 

2790 LET N-N+3 

2793 IF 20INT <<N-XV33> THEN L 
ET N-N+99 

2800 RRNP USR 16680 
2810 SLOW 
2820 RETURN 
2900 RRNP USR 16629 
2910 GOTO 16 
2920 SRVE "ECRIt" 

2930 GOTO 16 
2940 CLS 
2943 LET N-X 
2930 GOTO 16 

2960 LET N-X+< INT <<N-X V33>+l >* 
33 

2970 GOTO 16 

2980 LET E-E+l 

2903 IF E-49 THEN LET E—13 

2990 GOTO 16 

3000 REM "INITIRL." 

3020 PIM M<12,704) 

3030 PIM B*< 704 > 

3040 LET T-l 
3030 LET V-l 
3060 LET U-0 
3070 LET P-0 
3080 LET E-0 
3090 RETURN 
5000 FOR N-0 TO 137 
3801 REM 
3082 REM 

3010 LPRINT T8B 0;N+16314;" ";PE 
EK <N+16314 >;TRB 10;N+16672;“ “) 
PEEK < N+16672 >; TRB 21,N+168301" 

";PEEK < N+16838 > 

3020 NEXT N 

3900 STOP 

6000 S8VE "ECRIt" 


Les autres écrans mémoire : l'édition 
de ces 12 écrans se fait par la touche 
Edit (SHIFT + 1). En début de 24ème 
ligne est reporté le numéro de l'écran 
mémoire édité (de 1 à 12). 

Pour charger le contenu de B$ dans le 
dernier écran édité la touche LPRINT 
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— LES NOUVEAUTES DU ZX 81 — 

Ordinateur domestique par excellence, le ZX 81 a d'autres cordes à son arc. Outre les possibi 
lites de branchement de l'imprimante et de l'extansion de mémoire 16 K RAM. une gamme 
très complète de périphériques est proposée pour augmenter ponctuellement les propriétés 
de votre micro ordinateur. 

(Carte : haute définition, son, génératrice de caractères, entrées sorties, extensions de 
mémoires. etc...l. 

D'un montage aisé, comme l'imprimante et la 16 K, ces extensions se connectent directe¬ 
ment sur votre unité de base par le connecteur arrière et vous permettent ainsi de faire 
évoluer votre machine en fonction de vos besoins précis. 

Le logiciel sur cassette : 

Une large gamme de logiciels est disponible. Ceux-ci développent des thèmes aussi diffé¬ 
rents que : 

• Jeux de réflexion. • Formation des jeunes. 

• Jeux animés. • Utilitaire. 

• Gestion, 

Ces différents programmes dont les prix varient entre 50 et 150 F, vont permettrent aux néo- 
phites comme aux programmeurs chevronnés d'accéder immédiatement à des programmes 
très performants. 

Une recherche permanente dans ce domaine permet d'enrichir constamment cette gamme. 

Outils incontestés, la plupart de ces programmes sont écrit en BASIC et vous permettront 
d analyser leur élaboration. 

D autres conçus en langage machine rapide et efficace, feront de vous des utilisateurs de 
puissants logiciels ou vous transporteront dans le monde des jeux électroniques. 


1 -64 K 

2 - Interface Centronics — carte Bus 

- cable 

3 - 8 Entrées - Sorties 

4 - Manette de jeux 


5 - Carte sonore 

6 - Carte génératrice de caractères 
7- ZP 82 

8 - Clavier ABS 

9 - Imprimante 
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BON DE COMMANDE 


logiciels — interfaces 


Qté. 

Code 

Désignation 

Prix Unitaire 
TTC 

Prix Total TTC 


J10 

J12 

J14 

J16 

J17 

J18 

J1 

J9 

J11 

J19 

G1 

G3 

G4 

G5 

G6 

Z3 

Z4 

U5 

U2 

U4 

CARTES / INTERFACES 

CARTE GENERATRICE DE CARACTERES 

CARTE SONORE 5OCTAVES 

CARTE ENTREES / SORTIES 8 ES 

CARTE 8 ENTREES ANALOGIQUES 8 EA 

CARTE INTERFACE CENTRONICS IMPRIMANTE 

CABLE POUR INTERFACE CENTRONICS 

CARTE BUS 

INTERFACE CENTRONICS ZP 82 

IMPRIMANTE GRAPHIQUE SEIKOSCHA GP 100 A 
(frais de port inclus) 

CARTE MANETTE DE JEUX 

MANETTE DE JEUX supplémentaire 

CLAVIERS 

MECANIQUE ABS 

JEUX 

SIMULATION DE VOL 

PATROUILLE DE L' ESPACE 

BIORYTHMES 

REX TYRANAUSORE 

GULP 

STOCK CAR 

JEUX DE REFLEXION 

OTHELLO 

ECHECS 

TRIC TRAC BACKGAMMON 

AWARI 

GESTION 

COMPTE BANCAIRE 

VU CA LC 

VUFILE 

DATA BASE 

ZX MULTIFICHIERS 

UTILITAIRES 

ASSEMBLEUR ARTIC 

MONITEUR DESASSEMBLEUR 

TOOLKIT ARTIC 

FAST LOAD MONITEUR 16 K 

FAST LOAD MONITEUR 64 K 

ZX TRI 

432.00 

432.00 

420.00 

420.00 

320.00 

150.00 

170.00 

990.00 

2300.00 

265.00 

125.00 

160.00 

115.00 

115.00 

115.00 

86.00 

86.00 

86.00 

156.00 

156.00 

115.00 

86.00 

120.00 

156.00 

156.00 

120.00 

215.00 

95.00 

95.00 

86.00 

86.00 

86.00 

95.00 



TOTAL _ 

TOTAL REPORT LOGICIEL 

TOTAL A REGLER (T.T.C.) I 1 


BON DE COMMANDE à envoyer à DIRECO international, 30 avenue de Messine- 75008 PARIS 
Nom : _ Prénom :_ 


(Coda postal complet) 

A _ le _ 

Signature Paiement 


n par C.C.P. ou Chèque Bancaire à l'ordre 
u de DIRECO International 

_par contre-remboursement moyennant une taxe de 14 F 
^ (Montant minimum de commande : 200 F) 



















éditeur pleine page pour Z X 81 16 K 
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(SHIFT + S) est actionnée. Le dernier 
écran édité est toujours considéré 
comme receveur. Si vous essayez de 
surcharger un écran mémoire sans édi¬ 
tion préalable de celui-ci la manœuvre 
(« LPRINT ») revient à faire un 
« EDIT » de l'écran considéré. C'est en 
pressant de nouveau LPRINT que vous 
obteiendrez dans A$ le contenu de 3$. 
Pour charger le contenu du dernier 
écran édité dans B$ presser la touche 
THEN (SHIFT + 3), utile p&ur modifier 
le contenu de l'un des 12 écrans 
mémoire. 


Liste hexadécimale 


16314 

18 

3E 

00 

28 

0C 

40 

23 

ED 

16322 

58 

12 

40 

3C 

01 

20 

00 

ED 

16330 

80 

23 

FE 

16 

38 

F5 

C9 

48 

16336 

33 

49 

33 

28 

9B 

40 

23 

7E 

16346 

FE 

76 

20 

01 

23 

34 

3D 

23 

16334 

18 

FE 

76 

20 

01 

13 

7E 

FE 

16562 

76 

20 

01 

23 

38 

98 

40 

BC 

16370 

28 

02 

30 

06 

38 

99 

40 

BD 

16378 

ce 

D8 

ED 

80 

2B 

36 

00 

23 

16386 

18 

PE 

ED 

3B 

99 

40 

IB 

62 

16594 

68 

2B 

7E 

FE 

76 

20 

01 

2B 

16602 

18 

FE 

76 

20 

01 

18 

38 

9C 

16610 

40 

BC 

38 

07 

38 

98 

40 

BD 

16618 

38 

01 

C9 

ED 

88 

23 

36 

00 

16626 

28 

18 

DF 

28 

0C 

40 

01 

C0 

16634 

02 

3E 

76 

BE 

28 

08 

08 

CB 

16642 

78 

28 

04 

CB 

BE 

18 

02 

CB 

16630 

FE 

23 

78 

FE 

00 

20 

E8 

79 

16638 

FE 

00 

20 

E3 

C9 

BE 

31 

39 

16666 

28 

0C 

40 

11 

02 

03 

19 

7E 

16674 

FE 

16 

CC 

23 

0F 

C9 

28 

0C 

16682 

40 

11 

6F 

02 

19 

ED 

3B 

17 

16690 

41 

87 

ED 

32 

D8 

38 

19 

41 

16698 

CB 

7F 

F3 

C4 

F5 

40 

Fl 

CB 

16706 

BF 

6F 

26 

00 

11 

08 

00 

CD 

16714 

03 

13 

11 

00 

1E 

19 

16 

04 

16722 

1E 

04 

46 

23 

4E 

23 

E3 

28 

16730 

17 

41 

7E 

FE 

76 

20 

81 

23 

16738 

36 

00 

CB 

71 

28 

16 

CB 

FE 

16746 

CB 

79 

20 

02 

CB 

D6 

CB 

70 


16734 

20 

02 

CB 

CE 

CB 

78 

20 

02 

16762 

CB 

C6 

18 

12 

CB 

79 

28 

02 

16770 

CB 

D6 

CB 

70 

28 

02 

CB 

CE 

16778 

CB 

78 

28 

02 

CB 

C6 

CB 

00 

16786 

CB 

00 

CB 

01 

CB 

01 

23 

1D 

16794 

20 

C0 

01 

1D 

00 

09 

22 

17 

16802 

41 

El 

13 

20 

88 

38 

19 

41 

16810 

CB 

7F 

C4 

F3 

40 

C9 

00 

38 

16818 

B0 

41 

16 

17 

06 

00 

21 

C7 

16826 

41 

4E 

23 

BE 

C8 

23 

13 

20 

16834 

F8 

C6 

80 

4F 

C9 

8C 

76 

80 

16842 

79 

01 

73 

02 

PB 

03 

70 

04 

16830 

DF 

03 

72 

06 

DD 

07 

E0 

08 

16838 

E3 

09 

E4 

08 

El 

81 

C0 

82 

16866 

D9 

83 

71 

84 

D8 

83 

73 

86 

16874 

DC 

87 

DE 

88 

D8 

89 

E2 

88 

16882 

E3 

00 

77 

73 

38 

F3 

41 

16 

16890 

19 

21 

10 

42 

13 

28 

08 

BE 

16898 

23 

28 

04 

23 

23 

18 

F3 

46 

16906 

23 

4E 

CD 

84 

0E 

C9 

74 

01 

16914 

2C 

73 

00 

38 

72 

00 

64 

70 

16922 

00 

78 

71 

00 

8C 

76 

00 

80 

16930 

79 

00 

38 

77 

03 

E8 

E4 

04 

16938 

4C 

73 

04 

B0 

El 

03 

14 

DF 

16946 

06 

84 

ES 

03 

78 

E2 

03 

DC 

16934 

DE 

06 

40 

C0 

07 

08 

E3 

07 

16962 

6C 

D8 

08 

34 

D8 

08 

98 

D9 

16970 

08 

68 

E0 

00 

BE 

DD 

0B 

7C 

16978 

DC 

0B 

90 

DB 

0B 

84 

00 

10 

16986 

IB 

IB 

18 

IB 

18 

18 

18 

18 


Les curseurs : jusqu'à présent le cur¬ 
seur était matérialisé par un « ? » mais il 
peut être représenté par tous les carac¬ 
tères. 

La touche « « = » (SHIFT + R) permet 
ces variations. 

Cependant 3 curseurs ont des fonctions 
spécifiques : 

en mode écriture : la touche action¬ 
née est aussitôt traduite par un caractère 
géant. 

même avantage que le précédant en 
mode graphique. 

"*" Ce curseur est obtenu plus faci¬ 
lement par la manœuvre de 


RUBOUT (SHIFT + 0) alternative¬ 
ment avec «? » 

agit en mode écriture et graphique. 

- en écriture : mémorise dans B$ 
tous les caractères passant à la gauche 
du curseur. (Si vous écrivez avec ce cur¬ 
seur, un double sera constitué dans B$ 
au fur et à mesure). 

Permet la correction ponctuelle du con¬ 
tenu de B$. 

Exemple : M O RDI M ? RDI M * 
RDI MA* DI 
? dans B$ 

Correction de MORDI enregistré dans 

B$ 

SLOW -MARDI-B$ édité. 

"*" et GRAPHISME : est enregistré 
dans B$ le contenu de la position que le 
curseur vient de quitter. (Puisque dans 
ce mode le curseur se déplace dans les 4 
directions). 

Autres fonctions : 

"«»" (SHIFT + T) : nettoyage de 
l'écran et remise du curseur en première 
position d'écriture. 

"» = " (SHIFT + Y) : mise du curseur en 
début de ligne suivante. 

"OR” (SHIF + W) : sauvegarde du pro¬ 
gramme des écrans mémoire et du con¬ 
tenu de l'écran. (La sauvegarde est très 
longue lOà 15 mn, si vous songez à utili¬ 
ser le FAST LOAD MONITOR, il faudra 
supprimer quelques écrans mémoire. 
"LLIST” (SHIFT + G) : permet la copie 
sur papier du contenu de l'écran. 

Pour sauvegarder ce programme sans le 
contenu des écrans mémoire. Faire 
BREAK puis un RUN suivi de NEW LINE 
(le temps de sauvegarde est encore 
assez long mais plus raisonnable). 

R. ARRANHADO 







• ••• 
• ••• 
• •• 


23 
































































Vous l'avez déjà sans doute tous remarqué, mais sur le ZX 81, les fonctions 
READ, DA TA et RESTORE font cruellement défaut. 

C'est pour pallier cette lacune incommensurable que je 
vous engage à étudier en langage machine une routine qui 
nous permettra de simuler ces fonctions. 



TATA . 1 
N£%T(M 

t i ê • 

VM 

H'ères 

TftS 
suit LE 
T.X SM 


n 


ëu&Esr 

a V 

RAipe 

æue 

CA'.'. 



' * • 


Rappels 

Nous allons revoir la signification de ces 
ordres. 

DATA : en français DONNEE. 

Cela peut être tout et n'importe quoi, 
des chiffres, des lettres, des caractères 
graphiques etc. Ces données sont nor¬ 
malement placées dans un programme 
Basic comme suit : 

Ex : 2000 FOR X = 1 TO 5 
2010 READ A$ (X) 

2020 N EXT X 

Dans cet exemple, après exécution, les 
variables A$ de 1 à 5 contiendront les 5 
premières DATA S . 

RESTORE : En français REINITIALI¬ 
SER. 

Cet ordre intervient au moment où il est 
nécessaire de remettre le compteur de 
DATA à zéro. 


Assembleur ZX AS 


1 REM YD57RND7777T7/ GOSUB FR 
ST 7Y*vCF7aCH LPRINT ✓ LORD 7SGN 
/',E?RND7 

0242 4-NOT ✓ LORD 67RND* TRN 5 
LIST RND'JB UNPLOT RND-r^WI NKE Y* 
FRST E£RND) COPY *;6 RND LPRINT 
«BOUT OF DRTR SYNTRX ERRORINVR 
LID DRTR. 


10 

REM 

*RERD DRTR RESTOPE 

410 

REM 


LD fl.< HL) 

20 

REM 

* 

VERSION 1.8 

420 

REM 


CP *1R 

30 

REM 

* 


430 

REM 


JR Z.L9 

40 

REM 

*<C> 

JM COHEN 1983 

440 

REM 


CP *76 

30 

REM 

* 


450 

REM 


JR Z.L9 

60 

REM 

! L01 

JR L7 

460 

REM 


BIT 6.R 

70 

REM 


LD HL.16508 

470 

REM 


JR NZ.L12 

80 

REM 

L02 

INC HL 

480 

REM 


RST 10 

90 

REM 

1 L03 

LD fl.< HL ) 

490 

REM 


JR L8 

100 

REM 


RND *C0 

500 

REM 

L09 

LD <16507).HL 

110 

REM 


JR NZ.L10 

310 

REM 


LD BC.0000 

120 

REM 


INC HL 

520 

REM 


RET 

130 

REM 


INC HL 

530 

REM 



140 

REM 


LD E.< HL > 

540 

REM 

'L10 

LD HL.LIS 

150 

REM 


INC HL 

550 

REM 


JR L13 

160 

REM 


LD D.<HL) 

560 

REM 

•LU 

LD HL.L16 

170 

REM 


INC HL 

370 

REM 


JR L13 

180 

REM 


LD fl. < HL > 

580 

REM 

■L12, LD HL.L17 

190 

REM 


CP *EA 

390 

REM 



200 

REM 


JR Z.LS 

600 

REM 

•L13 

PUSH HL 

210 

REM 

L04 

RDD HL.DE 

610 

REM 


LD HL.<16396) 

220 

REM 


JR L3 

620 

REM 


LD DE.767 

230 

REM 

L05 

PUSH HL 

630 

REM 


RDD HL.DE 

240 

REM 


INC HL 

640 

REM 


LD <16398).HL 

250 

REM 


LD A.*0D 

650 

REM 


POP HL 

260 

REM 


CP < HL ) 

660 

REM 


LD B.*0C 

270 

REM 


JR Z.L6 

670 

REM 

•L14 

LD R.< HL > 

280 

REM 


INC HL 

680 

REM 


RST 10 

290 

REM 


CP < HL) 

690 

REM 


INC HL 

300 

REM 


JR Z.Lll 

700 

REM 


DJNZ.L14 

310 

REM 


POP HL 

710 

REM 


RST 08 

320 

REM 


JR L4 

720 

REM 


EX RF.RF 

330 

REM 

• L06 

INC HL 

730 

REM 



340 

REM 


POP DE 

740 

REM 

'LIS 

NOP;NOP;NOP;NOP 

350 

REM 


JR L9 

750 

REM 


NOP;NOP;NOP.NOP 

360 

REM 

• L07 

LD HL.<16307) 

760 

REM 


NOPsNOPiNOP;NOP 

370 

REM 


LD R.< HL > 

770 

REM 

■ Lie 

NOP;NOP;NOP;NOP 

380 

REM 


CP *76 

780 

REM 


NOP;NOP;NOP >NOP 

3 90 

REM 


CRLL Z.L2 

790 

REM 


NOP;NOP;NOP.HOP 

400 

REM 

L08 

INC HL 

800 

REM 

■L17 

NOP;NOP;NOP;NOP 


Tout Iss caractères soulignés doivent appareitre en vidéo invarséa. 
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810 REM NOP ; HOP ; NOP ; NCP 

820 REM NOP > NOP;NOP < NOP 

830 REM > 

840 REM 

850 REM •nessaeesBd' erreur* 

860 REM 

870 LET E»«"OUT OF DRTfl SYNTRX 
ERPOPINVRLID DRTR" 

880 REM 

890 REM ■char9ememt*ness*9es» 
900 REM 

910 FOR X-l TO 36 

920 POKE 16623+X,CODE E*<X> 

930 NEXT X 

940 STOP _ _ 

950 REM ■^■■exemP 1 ?«■■■■ 

960 REM ■■Initial ls«tionHM 
970 LET RESTORE-16516 
980 LET RERD-16514 
990 REM 

1000 PRND USR RESTORE 
1010 REM * VOUS POUVEZ METTRE EN 
DRTR TOUS,LES CRRRCTEPES QUE VO 
US DESIREZ 

1020 REM » •/ousBdevezBseu lenient 

Hî:Bli9n-|>altr^«rBdfjPfM 9MI 

dansBlç^ro-- 9ramme 

1030 REM 9 LE MIEUX C"EST Bd'ess 

jserl 

1040 FOR X-l TO 6 
1050 PRINT CHR» USR RERD 
1060 NEXT X 
1900 STOP 

2000 REM ■chareeurBiexadecimalB 
2010 LET C*-”....CODES. 

2020 LET R-16514 

2030 FOR X-l TO LEN C*-l STEP 2 

2040 POKE fl,<CODE C*< X >-28 >*16+C 

ODE C»<X+l>-28 

2050 LET fl-R+1 

2060 NEXT X 

2070 REM 


adres ■codesWiaxadecimaux. 


16514 

18 

29 

21 

7C 

40 

23 

7E 

E6 

16522 

C0 

20 

41 

23 

23 

5E 

23 

56 

16530 

23 

7E 

FE 

ER 

28 

03 

19 

18 

16538 

ED 

E5 

23 

3E 

0D 

BE 

28 

07 

16546 

23 

BE 

28 

2D 

El 

18 

EF 

23 

16554 

DI 

18 

IR 

2R 

7B 

40 

7E 

FE 

16562 

76 

CC 

87 

40 

23 

7E 

FE 

lfl- 

16570 

28 

0B 

FE 

76 

28 

07 

CB 

77 

16578 

20 

14 

D7 

18 

EF 

22 

7B 

40 

16586 

01 

00 

00 

C9 

21 

F0 

40 

18 

16594 

08 

21 

FC 

40 

18 

03 

21 

08 

16602 

41 

E5 

2fl 

0C 

40 

11 

FF 

02 

16610 

19 

22 

0E 

40 

El 

06 

0C 

7E 

16618 

D7 

23 

10 

FB 

CF 

08 

34 

3R 

16626 

39 

00 

34 

2B 

00 

29 

26 

39 

16634 

26 

00 

38 

3E 

33 

39 

26 

3D 

16642 

00 

2fl 

37 

37 

34 

37 

2E 

33 

16650 

38 

26 

31 

2E 

29 

00 

29 

26 

16658 

39 

26 

IB 

18 

IB 

18 

IB 

IB 


Objectifs 

Je vous propose dans notre cas, une 
routine, qui vous permettra de lire 
(READ) des données (DATA) compo¬ 
sées de tous les caractères possibles 
(sauf les mots-clé) et de les gérer de la 
manière que l'on voudra au niveau de 
l'affichage. 

Ne posez pas encore de questions, je 
m'explique. 


Vous pourrez mettre dans votre pro¬ 
gramme dans des REM que vous carac¬ 
tériserez par un caractère quelconque. 
Exemple REM $ ou REM : 

Dans ces REM $ judicieusement mar¬ 
qués, vous pourrez placer vos DATA,. 
Ex. : 170 REM $ JE, SUIS, LE, ZX 81, 

Ces lignes de DATAsPOurront être aussi 
longues, aussi, nombreuses que vous le 
souhaiterez. 

Quelques contraintes cependant : il ne 
sera pas possible de mettre des virgules 
« , » en DATA car elles servent de sépa¬ 
rateurs entre les différentes données. Il 
ne sera pas non plus possible de mettre 
des mots-clefs sauf s'ils sont tapés en 
toutes lettres. 

Pour lire et afficher les DATA S , il suffira 
de faire : 

RANDUSRREAD 
ou encore 

PRINT CHR$ USR READ 
Dans le deuxième cas, vous bénéficierez 
de tous les avantages du 
PRINTTAB 15 ; CHR$ USR READ 
PRINT AT 10,10 ; CHR$ USR READ 
suivis de « , » ou « ; » si vous le désirez. 
Toutes les erreurs vous seront signalées 
par des messages en clair qui s'inscriront 
à côté du compte rendu d'erreur sur la 
dernière ligne de l'écran. 

Dans mon exemple j'ai choisi des messa¬ 
ges en anglais car ils sont plus courts : 

1 - OUT OF DATA 1 - PLUS DE DON¬ 
NEE 

2 -SYNTAX ERROR 2 - SYNTAXE 
ERRONEE 

3 - INVALID DATA 3 - DONNEE INVA¬ 
LIDE 


Le programme 

Il se décompose en trois grandes par¬ 
ties : 

A/ RESTORE 
B/ READ 
CI ERREURS 

RESTORE 

Cela correspond en fait à la localisation 
des REM$ dans le programme. 

Rappel sur la structure des lignes d'un 
programme BASIC. 

Ouvrez le manuel Sinclair page 171. 


■ 1 



l d 

118 


N° Ligne Longueur Newtine 


Exemple : 

10REMZX81 

20 FOR X = 16509 TO 16530 

30 PRINT PEEK X ; TAB 7 ; CHR$ PEEK 

X 

40 NEXT X 


Vous aurez : 


0 

numéro de ligne sur deux octets 

10 

6 

mais inversés. 

0 

longueur de la ligne sur deux octets. 

234 REM 
63 Z 


61 X 

’ ligne 5 caractères + 1 

36 8 

29 1 . 

pour le Newline de fin 

118 ? 

(newline) 

0 ) 
20 = 

etc 

numéro de ligne 


Le RESTORE consistera donc à sauter 
de ligne en ligne jusqu'à trouver un 
REM$ ou bien s'arrêter si le numéro de 
ligne est supérieur à 9999. 

Comment faire ? 

Nous savons que le programme démarre 
toujours en 16509 ( p 171), vous l'avez vu 
dans l'exemple précédent. 

En 16509 et 16510, nous avons le 
numéro de ligne de la 1ère ligne du pro¬ 
gramme suivi par sa longueur. Nous 
prendrons ce numéro, nous le testerons 
pour voir s'il est inférieur à 9999, nous 
stockerons la longueur de la ligne pour 
sauter à la ligne suivante si les codes sui¬ 
vants ne sont pas REM$. Dans cette rou¬ 
tine nous testerons aussi l'erreur qui 
consisterait à mettre REM$ lors d'une 
faute de frappe. 
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La routine Restore 



LD HL, PROGR 

on charge dans HL l’adresse de début de programme -1 

RESTORE 

INC HL 

HL pointe maintenant sur le début du programme 

BOUCLE 1 

LD A, (HL) 

on met dans A la partie haute du numéro 


ANDC04 

teste si supérieur à 9999. 


JRNZSUP 

si oui va a erreur « OUT OF DATA » 


INC HL 

passe la partie basse du numéro de ligne 


INC HL 

pointe sur 1er octet de la longueur. 


LD E, (HL) 

le met dans E 


INC HL 

passe à l'ordre basic. 


LD A, (HL) 

le met dans A 


CPEAH 

est-ce un REM 


JR Z REM 

si oui va à REM 

BOUCLE 2 

ADDHL.DE 

si non additionne la longueur à la position actuelle. 


JR BOUCLE 1 

et boucle 1 pour la ligne suivante 

REM 

PUSH HL 

stocke position actuelle. 


INC HL 

passe juste après le REM 


LD A,« $ » 

CP (HL) 

y a-t-il un$ 


JR Z TROUVE 

si oui va a trouve 


INC HL 

CP (HL) 

teste case suivante 


JR Z SYNTAXE 

s'il y a un $ (normalement un expace) erreur syntaxe 


POP HL 

on récupère la position qui est mauvaise puisque testée 


JR BOUCLE2 

c'était donc un REM sans $ et boucle 2 

TROUVE 

INC HL 

HL est encore sur le $ on passe case suivante 


POP DE 

on dépile dans DE (ou n'importe ou) l'adresse précédente 


JR FIN 

dont on n'a plus besoin et on va à FIN. 

FIN 

LD (POINTEUR) HL 

on stocke HL qui pointe sur la 1- lettre de la ligne de 


LD BC. 0 

Data ; on met 0 dans BC pour pouvoir utiliser 


R ET 

le PRINT CHR$ USR sans imprimer le contenu de BC et Retour au 
Basic. 


READ 



C'est beaucoup 

plus simple, il s'agit 


d'écrire les DATA en s'arrêtant dès qu'il 


y a une virgule ou que l'on arrive à la fin 


au REM$, en testant en plus une erreur 


comme l'utilisation de mots clefs. 

• 

DATA 

LD HL, (POINTEUR) 

récupère la valeur trouvée au RESTORE 


LD A, (HL) 

charge caractère. 


CP, 76h 

est-ce la fin du REM$ ou REM$ sans rien 


CALLZRESTORE 

si oui RESTORE ligne REM$ suivante 

BOUCLE3 

INC HL 

sinon case suivante 


LD A, (HL) 

est-ce une virgule 


CP", " 



JR Z FIN 

si oui fin 


CP76h 

est-ce la fin de ligne (dernière data de la ligne) 


JR Z FIN 

si oui Fin aussi 


BIT6, A 

est-ce un mot clef 


JR NZ NON ECRIT 

si oui va à NON ECRIT 


RST10 

écrit le code qui est dans A 


JR BOUCLE 3 

on recommence 

FIN 

LD (POINTEUR), HL 



LDBC.O 

voir routine RESTORE 


R ET 
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ERREURS 

SUP 

LD HL, ERREUR 1 

charge dans HL, l’adresse du texte erreur 1 


JR ERREUR 

va à routine d’affichage erreur. 

SYNTAXE 

LD HL, ERREUR 2 

charge dans HL l'adresse du texte erreur 2 


JR ERREUR 

va à routine d'affichage erreur 

NON ECRIT 

LD HL, ERREUR3 

charge dans HL l'adresse du texte erreur 3 

ERREUR 

PUSH HL 

stocke adresse erreur 


LD HL, (16396) 

LD DE, + 767 

ADDHL.DE 

Position l'adresse d'écriture du message d'erreur 


LD (16398), HL 

à la 767ème case écran (dernière ligne) 


POP HL 

récupère adresse texte 


LD B, +12 

charge B avec la longueur du texte ici 12 caractères 

B0UCLE4 

LD A, (HL) 

lit le caractère 


RST10 

l'écrit 


INC HL 

pointe sur le suivant 


DJNZBOUCLE4 

boucle jusqu'à B = 0. 


R ST 08h 

08 

stop et compte rendu 9/numéro ligne. 

ERREUR 1 

« OUT OF DATA » 


ERREUR 2 

« SYNTAXERROR » 

messages d'erreur 

ERREUR 3 

« INVALID DATA » 



Voilà, vous savez tout. 

Il me reste à ajouter que le programme 
qui figure sur le listing 1 doit être utilisé 
avec l'assembleur ZXAS et qu'il vous 
faudra réserver environ 160 A 170 
OCTETS DANS LE REM LIGNE 1. 

Les personnes qui n'ont pas d’assem¬ 
bleur utiliseront un chargeur héxadéci- 
mal et la liste héxadécimale Listing 2. 
N'oubliez pas le REM Ligne 1. 

Les utilisateurs de l'assembleur 
d'ARTIC : voir listing 3. 


Assembleur ARTIC 


JRERD DATA RESTORE 
; VERSION l.S 

; (C) JM COHEN 1933 


STRRT «JR DRTR 


LD HL.. PROGR 


REST INC HL 
NEXT1 LD R.. (HL) 
RND C0 
JR NZ OUT 
INC HL 
INC HL 
LD E , (HL) 
INC HL 
LD D.« (HL) 
INC HL 
LD R.. (HL) 
CP ER 
JR Z REM 
NEXT2 RDD HL f DE 
JR NEXT1 
REM PUSH HL 
INC HL 
LD R.."*" o. 


• • 



CP (HL) 

JR Z LOC 

INC HL 

CP (HL) 

JR Z SYN 

POP HL 

JR NEXT2 

LOC 

INC HL 

POP DE 

JR END 

DOTA 

LD HL .. (POINT) 
LD A,(HL) 

CP 76 

CALL Z REST - 

NEXT 

INC HL 

LD A.. (HL) 

pp •• •* 

JR Z'END 

CP 76 

JR Z END 

BIT 6.. A 

JR NZ NON 

RST 1© 

JR NEXT 

END 

LD (POINT),HL 
LD BC,© 

RET 

OUT 

LD HL.ERROR1 
JR ERROR 

SYN 

LD HL.ERROR2 
JR ERROR 

NON 

LD HL..ERRDR3 

ERROR 

PUSH HL 

LD HL.. (DF ILE) 
LD DE , +767 

ADD HL j DE 

LD (PRINT),HL 
POP HL 

LD B..+12 

LOOP 

LD A,(HL) 

RST 1© 

INC HL 

DJNZ LOOP 

RST 8 

3 
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ERROR1 "OUT OF DRTR 
ERROR2 "5YNTRX ERROR 
ERROR3 "INUALID DRT R 


POINT = + 1650? 
DFILE = +16306 
PRINT=+16398 
NXLIN = +164-25 
PROGR=+16508 


Conseils 

Pour tout le monde : 

SAUVEGARDEZ votre programme 
avant de faire un seul RUN ou GOTO, un 
plantage est si vite arrivé ! 

Nota : les possesseurs d'un assembleur 
pourront éventuellement modifier la 
deuxième ligne du programme par LD 
HL, (16425) ce qui leur donnera un RES¬ 
TORE VARIABLE, c'est-à-dire que les 
DATA qui seront lues seront celles qui 
figureront dans les lignes suivant ce 
RESTORE alors que dans l'autre cas, le 
RESTORE se fait depuis le début du pro¬ 
gramme. 

Pour faire la modification par POKE : 
POKE 16516,42 
POKE 16517,41 

Pour revenir si vous changez d'avis : 
POKE 16516,21 
POKE 16517,125 

Si ce programme vous intéresse et que 
vous désirez ' que l’on aille plus loi 
comme, par exemple, mettre les datas 
dans une variable ou autre, écrivez moi, 
j’étudierai toutes vos suggestions. 

Jean-MicheI Cohen 
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Ce programme est un intermédiaire entre l'assembleur 
évolué qui travaille avec des mnémoniques et 
le simple chargeur héxadécimal. 


Par exemple, pour écrire 
JR LABEL 1 
on tapera 

18 R 001 

♦ ♦ * 

JR relatif étiquette T001 


C'est en fait un assembleur qui ne pos¬ 
sède pas de mnémoniques, par contre, 
toutes les autres fonctions habituelles 
sont présentes : 

— éditeur 

— étiquettes (256 étiquettes) 

— conversions de bases 

— origine de l'implantation du code en 
mémoire. 


L'éditeur 

Cette partie vous permet de corriger et 
d'ajouter des lignes à votre programme, 
le code source étant contenu dans des 
tableaux, ne jamais faire RUN pour lan¬ 
cer MICRO ASM mais GOTO 10. Un 
bref récapitulatif des instructions est 
alors affiché. MICRO ASM vous 
demande alors le nombre de lignes de 
votre programme et l'adresse d'implan¬ 
tation. Une fois ces informations four¬ 
nies, une ligne de ce type sera affichée : 


n° de ligne adresse 

J- AA'AA^t MICRO ASM attendra sa 
première commande : 

Les codes opératoires sont donnés en 
hexadécimal, par exemple pour l'instruc¬ 
tion INC HL, on aura « 23 ». 

Les opérandes peuvent être entrés en 
décimal si elles sont précédées du pré¬ 


fixe « G » ou « H », G pour des nombres 
de 0 à 255 (décimal court), H pour des 
nombres de 0 à 65 535 (1) (décimal 
long). Une instruction de plusieurs 
octets doit être écrite sur la même ligne 
pour des raisons de lisibilité pour écrire 
par exemple : 

LD HL, 16 514 puis N/L 
on aura à taper 
21 H 16 5J4puisN/L 

code^pératoire opérande en décimal 

Après N/L, la ligne est enregistrée et 
une nouvelle ligne, dont l'adresse a été 
incrémentée du nombre d'octets de la 
précédente instruction, apparaît MICRO 
ASS attend l'entrée de la ligne suivante. 
Les étiquettes sont des nombres à 3 
chiffres précédés du préfixe « T », elles 
doivent figurer seules sur une ligne. 
Tous les branchements relatifs ou abso¬ 
lus seront faits par rapport à ces étiquet¬ 
tes. 

Exemple : T 004. 

— Pour écrire des instructions 
sont à des étiquettes, on utilise les pré¬ 
fixes « R » pour les branchements rela¬ 
tifs et « J » pour branchements les abso¬ 
lus. 


(1) Ecrire des O pour compléter les 
nombres de 3 ou 5 chiffres 
ex : LD HL. 24321H 00243 


Ces étiquettes pourront servir pour 
adresser des données, par exemple : 

LD H L, ( DAT A 4) sera écrit 
^ A J XIO 

code opératoire absoùTètiquette T 004. 


Voici en exemple un programme écrit en 
assembleur Z-80 et pour MICRO-ASM. 


Assembleur Z80 


LABEL 1 

0000 

LABEL2 

00 00 

START 

LD B, FF 

LD C,0 

LOOP 

LD HL, (LABEL 1) 
LD DE, (LABEL2) 
DEC DE 

LD A, (HL) 

DJNZLOOP 

RET 


MICRO-ASM 


1 T001 

9 2AJ001 

2 0000 

10 ED5BJ002 

3 T002 

11 IB 

4 0000 

12 7E 

5 T003 

13 10R004 

6 06FF 

14 C9 

7 0E00 


8 T004 
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* Certaines lettres comme L, I, O, et S 
sont des commandes et ne seront pas 
enregistrées comme des instructions. 

* L n, m liste des lignes de n à m et posi¬ 
tionne la prochaine entrée à la ligne m + 
1, cette commande existe aussi sous la 
forme Ln, qui positionne l'entrée à la 
ligne n + 1. 

* O détruit la ligne courante, toutes les 
autres lignes sont décalées et leurs 
adresses recalculées. 

* I, cette commande se place devant 
n'importe quelle instruction et insère 
celle-ci à la ligne courante. 

Exemple : soit 

1 06 6255 

2 23 

3 10 R 008 

4 OEOO 

ligne 

courante 

L2 donne : 

1 06 6256 

2 23 » 

3 10 R 008 

4 OEOO 

ligne _ 

courante 

I 21 H 16514 donne : 

1 06 6255 

2 21 H 16514 

3 23 e-- 

4 10 R 008 1 

5 OEOO 1 

ligne ■ I 

courante 

Une fois le programme édité, il pourra 
être compilé et le code objet sera 
implanté aux adresses définies par l'ori¬ 
gine. 

* « S » sous la forme SA, B compile les 
lignes de A à B et les place en mémoire à 
leurs adresses respectives. 

A la compilation, il peut survenir des 
erreurs (par exemple un adressage relatif 
trop long). MICRO-ASM affiche l'erreur 
et donne son numéro de ligne. 

De même, dans l'éditeur peut survenir 
une erreur (préfixe inexistant ou 3 chif¬ 
fres au lieu des 5 prévus), dans ce cas, 
l'exécution s'arrête, il faut relancer 
MICRO-ASM avec la commande GOTO 
100 . 


Le programme 

MICRO-ASM est essentiellement modu¬ 
laire et comporte deux parties : l'éditeur 
et le compilateur. 

L'éditeur - ligne 80 

L'instruction ou la commande est entrée 
à la ligne 410 dans A$ puis la chaîne est 
« décortiquée » par les lignes 440, 450 
pour avoir un caractère dans la chaîne 


B$. Suivant ce caractère, les lignes 460 à 
550 aiguillent l'exécution sur le module 
correspondant ou préfixe ou à la com¬ 
mande dans B$. Si la chaîne est termi¬ 
née, celle-ci est enregistrée dans le 
tableau C$ (L) dimentionné au préalable 
par les lignes 310, 320. Le tableau E (L) 
est également dimentionné par ces 
lignes et contient les adresses corres¬ 
pondant aux numéros de lignes. 


10 

REM 




20 

REM 

MICRO ASSEMBLEUR 

20 

REM 

AUTEUR 0 

PICIOTTO 

40 

REM 




50 

PRINT 

"******************" 

60 

PRINT 

"«MICRO ASSEMBLEUR*" 

70 

PRINT 

"***t**************" 

80 

PRINT 

AT 

î,0 


90 

PRINT 

"LES PREFIXES SONT >" 

100 

PRINT 

AT 

5,0 


110 

T" 

PRINT 

"-H 

POUR 

DECIMAL COUR 

120 

•1 

PRINT 

"-G 

POUR 

DECIMAL LONG 

120 

PRINT 

K 

POUR 

BINAIRE" 

140 

PRINT 

"-L 

POUR 

LISTER" 

150 

PRINT 

"-I 

POUR 

INSERERTIONS 

"l60 

PRINT 

"-J 

POUR 

BRANCHEMENTS 

" 170 

PRINT 

" -R 

POUR 

BRANCHEMENTS 

RELATIFS" 




180 

PRINT 

"-0 

POUR 

DELETE" 

190 

PRINT 

"-T 

POUR 

LABEL" 

200 

PRINT 

••-s 

POUR 

COMPILER" 

210 

LET F-0 



220 

SLOW 




230 

PRINT 




240 

PRINT 

“NOUVEAU 

PROGRAMME T" 


250 IF INKEV*-"" THEN GOTO 250 
260 IF INKEŸ*-"N" THEN GOTO 240 
270 PRINT 

290 PRINT "DONNER LA PREMIERE fl 
DRESSE" 

290 INPUT fl 

200 PRINT "ET Sfl LONGUEUR EN LI 
CNES" 


310 

INPUT L 




320 

DIM C«<L, 

16> 



330 

DIM E<L> 




340 

LET C-l 




350 

LET D-A 




360 

CLS 




370 

FAST 




380 

SCROLL 




390 

LET E<C>-D 



400 

PRINT Ci" 

—" i D j 

i ■—y 

’j 

410 

INPUT A* 




420 

LET A»-A*+" « 



430 

LET 1-1 




440 

LET B*-A*d> 



450 

IF B*-" " 

OR B*-"." 

THEN 

TO 1240 




460 

IF B*-"G" 

THEN 

GOTO 

610 

470 

IF B*-"S" 

THEN 

GOTO 

1420 

480 

IF B*-"H" 

THEN 

GOTO 

650 

490 

IF B*-"K" 

THEN 

GOTO 840 

500 

IF B*-"L" 

THEN 

GOTO 

730 

510 

IF B*-"I" 

THEN 

GOTO 

970 

520 

IF B*-"0" 

THEN 

GOTO 

1040 

530 

IF B*-"J" 

THEN 

GOTO 

1200 

540 

IF B*-"T“ 

THEN 

GOTO 

1300 

550 

IF B*-’'R" 

THEN 

GOTO 

1160 


560 REM ********************* 
570 REM HEXA 


Les modules HEXA, DEC. COURT, DEC 
LONG, RELATIF, ABSOLU, fonction¬ 
nent de la même manière. La variable D 
est un compteur d'octets et la variable I 
compte les caractères de la chaîne A$. 
Par exemple, le module RELATIF : 
l'argument qui suit le préfixe « R » 
occupe 1 octet (ligne 1160) et il faut sau¬ 
ter 4 caractères (1 pour le préfixe et 3 
pour l'argument) (ligne 1170). A la ligne 


580 LET D-D+l 

590 LET I-I+2 

600 GOTO 440 

610 REM DEC COURT 

620 LET D-D+l 

620 LET I—1+4 

640 GOTO 440 

650 REM DEC LONG 

660 LET D-D+2 

670 LET I-I+6 

680 GOTO 440 

690 REM BINAIRE 

700 LET D-D+l 

710 LET I-I+9 

720 GOTO 440 

720 REM LISTING 

740 FOR J-2 TO LEN fl* 

750 IF fl*r J)-“, " THEN GOTO 790 
760 NEXT J 

770 LET C-VAL fl*<? TO J-l> 

780 GOTO 850 

790 LET C-VAL fl*<2 TO J-l > 

880 LET HI-VAL fl*rj+l TO > 

810 FOR J-C TO HI 
820 SCROLL 

820 PRINT >“iC*< 

J> 

840 NEXT J 
850 LET D-E< C > 

860 GOTO 280 
870 REM INSERTIONS 
880 LET F=1 
890 LET I-I+l 
908 LET D=E< C > 

910 GOTO 440 

920 FOR J-L-l TO C STEP -1 
920 LET C*< J+l >-C*< J> 

940 NEXT J 

950 LET C*< C >-A*< 2 TO > 

960 PRINT C*<C> 

970 LET C-C+l 
980 LET U-D-E(C) 

990 FOR J-C TO L 
1000 LET E< J >-E< J >+U 
1010 NEXT J 
1020 LET F-0 
1020 GOTO 280 
1040 REM DELETE 
1050 LET F-2 
1060 LET I-I+l 
1070 LET D-E< C > 

1080 GOTO 440 

1090 LET U-E< C+l>-E< C > 

1100 FOR J-C TO L-l 
1110 LET C»<J>-C*<J+l> 

1120 LET EU'«E(J+1H) 

1120 NEXT J 
1140 LET F-0 
1150 GOTO 380 
1160 REM RELATIF 
1170 LET I-I+4 
1180 LET D-D+l 
1190 GOTO 440 
1200 REM ABSOLU 


















MICRO 

ASSEMBLEUR 


1190 on se rebranche à la ligne 440 pour 
avoir le prochain élément de l'instruc-. 
tion. 

Sur le module listing (ligne 730), les 
lignes 740 à 850 séparent les arguments 
de la commande « L , n, m ». 

Les modules INSERTION et DELETE 
sont les plus complexes. Par exemple, le 


1210 LET 1*1+4 

1220 LET D-D+2 

1230 GOTO 440 

1240 IF F*1 THEN GOTO 920 

1230 IF F-2 THEN GOTO 1WO 

1260 LET C ''«R* 

1270 PPINT fl* 

1280 LET C«C+1 
1290 GOTO 380 
1300 REM LABEL 
1310 GOTO 1240 
1320 REM RECH LRBEL 
1330 FOR K*1 TO L 
1340 IF C«K.1)<"T” THEN GOTO 13 
80 

1330 IF VAL C*<K,2 TO 4 >-H0 THEN 
RETURN 
1360 NEXT K 
1370 SCROLL 

1380 PRINT "***ERR LRBEL "j 
1390 GOTO 2090 

1400 REM ******************** 

1410 REM COMPILATEUR 
1420 FOR J-2 TO LEN R* 

1430 IF A*<J>-“," THEN GOTO 1460 
1440 NEXT J 
1450 GOTO 380 

1460 LET P*VRL R0CJ+1 TO > 

1470 LET K-VRL R*<2 TO J-l> 

1480 FOR J*K TO P 
1490 LET H-0 
1300 LET A*=C*<J> 

1510 LET 1-1 
1320 LET B*=A*<I> 

1330 IF B*-"G" THEN GOTO 1670 
1340 IF B*-"H" THEN GOTO 1730 
1550 IF B»-"K" THEN GOTO 1860 
1360 IF B*»"J" THEN GOTO 2110 
1570 IF B»*"R" THEN GOTO 1870 
1580 IF B*=" " OP B*="T" THEN GO 
TO 1980 

1390 REM HEXRDECIMRL 

1600 LET HI*< CODE A*< I >-28 >*16 

1610 LET 1*1+1 

1620 LET LO-CODE A*< I >-28 

1630 POKE E(J>+H.HI+LO 

1640 LET H-H+l’ 

1630 LET I-I+l 
1660 GOTO 1520 
1670 REM DEC COURT 
1690 LET I-I+l 

1690 LET HI =VRL R*'’ I TO I+2> 


module INSERTION (ligne 870), modifie 
les pointeurs et se rebranche à la ligne 
440, pour les autres éléments de l’ins¬ 
truction. Quand l’analyse de celle-ci est 
terminée, un branchement est fait à la 
ligne 1240 (ligne 440) qui teste le dra¬ 
peau : s’il est armé, on décale les ins¬ 
tructions et leurs adresses (ligne 920 à 


1700 IF HI>235 THEN GOTO 2030 

1710 POKE E<J>+H,HI 

1720 LET H-H+l 

1730 LET I-I+3 

1740 GOTO 1320 

1730 REM DEC J.ONG 

1760 LET I-I+l 

1770 LET H0-VRL R*<I TO 1+4) 

1780 LET HI-INT <H0^236> 

1790 IF HI>233 THEN GOTO 2060 

1800 LET LO-<H0X236-HI>*236 

1810 POKE E< J>+H,LO 

1820 POKE E<J>+H+1,HI 

1830 LET I-I+3 

1840 LET H-H+2 

1830 GOTO 1320 

I960 REM BINRIPE 

1870 REM RELATIF 

1880 LET I-I+l 

1990 LET H0-VRL A*'I TO 1+2) 

1900 GOSUB 1320 
1910 LET H0-EC K >-E< J >-2 
1920 IF RBS H0M27 THEN GOTO 200 
0 

1930 IF H0<0 THEN LET H0-H0+236 

1940 POKE E< J >+H, H0 

1930 LET H-H+l 

1960 LET 1=1+3 

1970 GOTO 1320 

1980 NEXT J 

1990 GOTO 380 

2000 8CR0LL 

2010 PRINT "***ERR BP.R.>127 "j 
2020 GOTO 2090 
2030 SCROLL 

2040 PRINT "***ERR RDP COURT>233 

" j 

2030 GOTO 2080 
2060 SCROLL 

2070 PRINT "***ERP ADR L0NG>6353 
3 •') 

2090 LET C-J 

2090 PRINT •• L." J C ;"***" 

2100 GOTO 380 
2110 REM ABSOLU 
2120 LET I-I+l 

2130 LET H0-VRL A*'I TO 1+2) 

2140 GOSUB 1320 
2130 LET H0=E< K > 

2160 GOTO 1790 

2170 PAINT AT 1,1;USR 16314 

9000 STOP 

9810 SAVE "MICRO ASm" 


1020) puis on rajoute le nombre d’octets 
insérés aux adresses qui suivent la nou¬ 
velle instruction, finalement on désarme 
le drapeau (ligne 1020). 

Le module DELETE fonctionne de la 
même façon. 


Com nilatmir 

Appelée par la commande « Sn, m », 
cette partie commence par séparer les 
arguments de la commande (ligne 1400 
1520). Ensuite, chaque instruction est 
analysée et des lignes (1530-1580) bran¬ 
chent l’exécution sur le module corres¬ 
pondant. Nous retrouvons les modules 
HEXA, DEC COURT, DEC LONG qui 
convertissent les valeurs dans les bases 
choisies. Les deux modules de branche¬ 
ments font appel à un sous programme 
de recherche de label (ligne 1320) qui 
donnera dans K le numéro de ligne cor¬ 
respondant au numéro de label. 

Divers tests sont inclus pour arrêter 
l’exécution en cas d’erreur. Les messa¬ 
ges sont imprimés aux lignes 2000 à 
2100 et placent le pointeur d’instructions 
à la ligne où se trouve l’erreur. 

Ce programme rendra des services évi¬ 
dents pour assembler au-dessus de 
RAMTOP, car MICRO-ASM est écrit en 
Basic. Au point de vue encombrement 
mémoire, l’assembleur occupe à peu 
près 4 K, il est possible d’assembler des 
programmes de 420 lignes environ avec 
16 Kde RAM. 


Conversion hexa-binaire 

0 0000 
1 0000 
2 0010 

3 0011 

4 0100 

5 0101 

6 0110 

7 0111 

8 1000 
9 1001 
A 1010 
B 1011 
C 1100 
D 1101 
E 1110 
F 1111 


O. Picciotto 
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Modification d'une cassette 

MKI W HJ ÜStfS 

en 

cassette 

DUMP 



C# cO? 


cof <ia? 


Le but de cette transformation est de 
créer une cassette qui ne fonctionne que 
pour la commande de « DUMP », ce qui 
permet de gagner 1K de RAM. 

Il faut donc modifier les trois program¬ 
mes : 

I - MONITEUR 

II - LOAD 

III - SAVE 

Il est conseillé de commencer pour pou¬ 
voir sauvegarder I par : 

I - MONITEUR 

Une fois le FLM en mémoire, entrer le 
programme : 

10 POKE 31577,141 
20 POKE 31626,195 
30 POKE 31627,0 
40 POKE 31628,124 


50 POKE 31629,33 
60 POKE 31630,43 
70 POKE 31631,127 
80 POKE 31632,126 
90 POKE 31633,0 
100 POKE 31634,0 
110 POKE 31694,34 
120 POKE 31695,45 
130 POKE 31696,127 
140 POKE 31697,9 
150 POKE 31733,0 
160 POKE 31734,124 
170 POKE 31736,0 
180 POKE 31737,122 
190 POKE 31772,205 
200 POKE 31773,206 
210 POKE 31774,123 
220 POKE 31775,34 
230 POKE 31776,56 
240 POKE 31777,127 
250 POKE 32277,141 


Faire RUN NEWLINE 

L'adresse d'accès n'est plus 30460 mais 

31744 


Il - LOAD 

Après avoir chargé le programme 
tapez : 

POKE 16517,0 
POKE 16518,122 
POKE 16520,191 
POKE 16521,5 


III - SAVE. Taper : 

POKE 16515,0 
POKE 16516,122 
POKE 16528,192 
POKE 16529,5 

Eric SANSON. 
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LA RAM 

INTERNE DU 

AL 



'HONNEUR 


Cet article s'adresse à ceux qui ont une 
extension mémoire vive de 16K ou 48 K. 
Lorsqu'on branche l'extension mémoire 
dans le connecteur arrière du ZX81, on 
déconnecte automatiquement la RAM 
interne qui a une capacité de 1K octets 
(voire 2 K). 

J'ai trouvé cela dommage pour le pro¬ 
grammeur qui pourrait utiliser pour son 
propre compte cet espace mémoire dis¬ 
ponible mais caché. Cette récupération 
de MEV est précieuse et rendra d'inesti¬ 
mables services à l'utilisateur : routine 
en langage machine etc. 

L'idée est de déplacer l'adresse physique 
de cette RAM interne pour qu'elle soit 
plus absorbée par l'extension mémoire. 
Dans la page mémoire du SINCLAIR on 
peut voir qu'il se trouve de l'espace 



mémoire inutile, c'est l'écho de la ROM 
BASIC dû à son adressage incomplet. 
Ce qui veut dire qu'entre et 

3FFFH on a 8Ko d'espace mémoire dis¬ 
ponible si l'on adresse complètement la 
ROM. 

Pour ce faire, il suffit que la ROM soit 
adressée par une jonctio n de s signaux 
ROMCS issus de ICI et ÂÎ3 qui et le 
poids 2 13 du BUS d'adresse. 

L’équation logique est : 

ROMCS' = R0MCS‘AT3. 

En effe t, le ZX81 fournit le signal 
ROMCS dès qu'une opération est 
demandée dans l'espace 0000H à 3FFFH 
(de 0 à 16Ko en pratique cela veut dire 
que le bit d'adresse 214 passe à fS il 
adresse de la ROM et donc il génère le 


signal ROMCS. Dans le schéma de prin¬ 
cipe du ZX81, la broche de sélection du 
boîtier ROM (CS p 20)est réalisé via une 
résistance de 680 Ohms (R 28 à la bro¬ 
che RÜMCS de ICI (p 13). 



Pour adresser complètement la ROM il 
faut donc faire : 


montage pour que la ROM soit adressée. 
Voici la nouvelle carte mémoire du ZX81 
après cette modification. 


FFFF « 




8000 • 

. - 


-RAM éxténiion 



1K RAM 


4000 • 

■ H 

int«rnt _ 




> inutilité 


2000 « 






■BASIC 


0000 

-J 





et cette fois la ROM ne sera décodée 
que de 0000H à 1FFFH ou dès que le bit 
A13 qui passe à la porte '14' qui est une 
porte inverseuse applique un 0 à l'entrée 
de la porte '2' qui est un 'et' et sa sortie 
passe à 0 quelque soit la valeur de 
ROMCS. 


la ta ble de vérité est : 
A13 
0 


ROMCS 
0 
1 
0 
1 


ROMCS' 

? Validation 
Q da la ROM 


Attention car ces signaux sont actifs au 
niveau bas (logique négative) et bien 
que sur la table de vérité la validation 
soit effectuée par ROMCS' = 1 dans la 
pratique, le signal appliqué sera un 0 III 
L'explication est valable en théorie mais 
les électroniciens devront pour que le 
raisonnement soit totalement exact 
inverser tous les signaux 'BARRE'. 

La résistance R28 devra donc être des¬ 
soudée (ou coupée) et être remplacée 
purement et simplement par ce petit 
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On pourrait implanter la RAM interne 
n'importe où dans l'espace mémoire 
2000H à 3FFFH mais pour des raisons de 
simplicité j'ai choisi de la placer entre 
et 2300H ce qui revient à dire que 
la sélection de cette RAM sera étroite¬ 
ment liée au bit A13 du BUS d'adresse. 
Dans cet espace mémoire, le ZX81 
génère un RÔMCS et nous allons donc 
nous en servir. Cette fois-ci, la RAM (à 
l'oppositio n de la RO M devra être adres¬ 
sée quand ROMCS passe à 1 et quand 
A13 passe à 1 (logique négative). 


Le signal RAMCé issu de ICI quand le fil 
A14 passe à 1 est relié à la RAM interne 
par une résistance de 680 Ohms (R2) 
mais cette fois on ne dessoudera pas 
cette résistance car le module extension 
mémoire que l'on branche sur le connec¬ 
teur arrière se sert de ce signal et il faut 
donc couper la liaison entre la RAM 
interne et le connecteur de sortie (bro¬ 
che 1B coté composants). Un cutter suf¬ 
fit pour cela. 













































































Connection de sortie 



tomes - A 13 


L'équation de sélection de RAM interne 
sera donc 

RÂMÜ3 = RÜMÜS'A13 

Pour adresser cette RAM entre 2000H et 

23FFH il faut donc faire : 


On peut constater qu'il n'y a plus de 
chevauchement et qu'il reste encore 
7Ko de mémoire (de 2400H et 3FFFH) si 
l'on décode complètement la RAM. On 
retrouve encore 8 fois l'image de la RAM 
dans cet espace. 

La réalisation de ce circuit ne pose 
aucune difficulté mais pour des raisons 
de facilité de mise en œuvre, de coût, de 
place et d'approvisionnement en com¬ 
posants, j'ai vu que l'on pouvait tout 
faire avec un seul circuit intégré bon 
marché et d'approvisionnement facile : 
le 74LS00 qui est un quadruple NAND à 
2 entrées en technologie Low Power 
SCHOTTKY qui allie une basse consom¬ 
mation et une vitesse suffisante en rem¬ 
placement des portes ET et NON 
(NAND) du schéma de principe. 

La philosophie est rigoureusement la 
même et voici le schéma : 


A 13- 


Romcs 


D- 


Rames 


ssée par la jo 
tion des signaux A13 et ROMCS, on 
peut donc considérer que c'est une 
PSEUDO-ROM qui sera statique vis-à- 
vis du NEW et même du RESET. En fait 
c'est une ROM dans laquelle on peut 
écrire et (iis au gré du programmeur par 
PEEKet POKEen BASIC. 

Pour le ZX81 cette RAM est une ROM 
mais il ne protège pas l'écriture dans un 
espace mémoire, on peut modifier le 
contenu. 

La table de vérité est : 


A13 

0 

0 

1 

1 


RÜTCIÜ5 

0 

1 

0 

1 


RAMCS de IC4 
0 
0 
0 
1 


validation de la RAM interne. 

Maintenant que nous avons les deux 
schémas de principe, nous pouvons faire 
le schéma complet de la modification. 



A13 

ROMCS 

Aomcs 

0 

0 

0 

0 

1 

1 

0 

0 

0 

1 

1 

0 


La table de vérité globale est donc : 

rtAMtS de IC4 

0 validation 
0 Nom BASIC 
0 validation | 
1 Ram interne 
La carte mémoire après modification est 
la suivante : 


Schéma interne du 74LS00 


A 13 ■ 


Romcs 




F F F F 



8000 < 

• - 

■RAM utilisateur extension 

4000 « 

• - 

inutilité mai» écho da la RAM 1 K 

23F F 


•RAM intarna 

2000 • 

■ 

■ RON Batte 

0000 

J 



J 

> 


Rorrcs 


Rames de IC 4 


14 13 12 11 10 9 8 



Le bit A13 est disponible dans le ZX81 à 
la cathode de la diode D5 



Support 8 fils 


La connection de ce circuit ne pose pas 
de problèmes et on a le choix entre deux 
solutions. 

— le circuit imprimé qui est de loin la 
plus élégante. 
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LA RAM 
INTERNE DU 

A L'HONNEUR 


— la réalisation sur support qui est 
moins propre et plus sujette à problè¬ 
mes. 

Voici le schéma sur circuit imprimé : 



+ SV de IC 4 Rorrcs 



0 Q) © 
Coté élément 


La connection de ce circuit comportant 
6 fils : 2 pour l'a limentati on 1 pou r A13, 
1 pour RÔ MCS, 1 p our ROMC'S, et le 
dernier pour ftÀK/ICS de IC4. 


Le montage devra s'effectuer comme 
suit : 

— Réaliser le circuit imprimé (ou le faire 
faire) 

— Souder le 74LS0Kfavec un fer à sou¬ 
der à panne fine (30 watts) 

— Souder les 6 fils en laissant 5 cm de fil 
•- Ouvrir votre ZX81 très prudemment 

— Couper la résistance R28 ou la dés- 
souder 

— Couper la liaison entre l e connec teur 
de sortie et la RAM interne (hAMCS) 

— Réperer la diode D5 et souder le fil 
« 1 » sur sa cathode (cote cercle noir) 

— Souder le fil « 2 » à la place de la 
résistance R28 coté ICI (vers les jacks) 
Souder le fil « 4 » de l'autre côté de R28 
(coté ROM) 

— Alimenter votre circuit en soudant les 
fils « 3 » et « 6 » respectivement à la 
masse et au + 5 volts. Si vous avez 2 
'2114 (boîtiers mémoire) vous pouvez 
souder le fil « 3 » à la broche 12 DE IC4 
et le fil « 6 » à la broche 24 de IC4. 

Dans le cas d'un seul 4118 fil « 3 » à la 
broche « 9 » de IC4 et fil « 6 » à la bro¬ 
che 18 de IC4b, 

— Remonter conciencieusement votre 
ZX81 

— Mettez l'extension mémoire 

— Brancher votre ordinateur 


Le K doit apparaître, sinon éteignez et 
revoyez votre montage. 

Pour tester cette PSEUDO ROM 


5FAST 

10 FOR J = 8192 TO 9215 
20 FOR I = 0TO255 

on POKP I 1 

40 IF PEEK J * ITHEN GOTO 100 
50 NEXT I 
60NEXTJ 
70 SLOW 

80 PRINT "RAM OK" 

90 STOP 

100 PRINT«RAM DEFECTUEUSE» 

110 STOP 

Faites RUN et au bout de quelques 
secondes vous devez avoir sur l'écran le 
message RAM OK. Si vous êtes dans ce 
cas tout est en parfait état de fonction¬ 
nement. 

Sinon, vous avez 2 solutions vérifier 
votre montage ou changer le 74LS00 
bien que des défauts de fabrication 
soient très très rares. 

Voilà vous avez à votre disposition 1 Ko 
supplémentaire de RAM entre 2000H et 
23FFH (8192 et 9215 qui est entièrement 
statique vis à vis des commandes NEW 
et CLEAR et surtout de la touche RESET 
que vous avez certainement monté sur 
votre ZX81. 

Je pense que ce petit KILO OCTETS 
étoffera votre ordinateur unique et pré¬ 
féré et que beaucoup d'entre vous lui 
trouveront des applications originales. 
Faites moi signe... 

Christian Magrin 
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Starwars fin 

C. Amiel 

S.O.S. (ter). Combat galactique suite et 
fin ! N° 3 Sinclair. Tout va bien jusqu'au 
moment où je veux effacer la ligne = 10 
REM CHARGEUR HEXA, là, l'écran 
saute et le 1 REM comprenant les 450 
octets ne peut se fixer. Quel est le but du 
jeu. 

Il faut en effet laisser après avoir rempli 
le REM une ligne « 2 REM » pour stabili¬ 
ser l'affichage. Comme le précise l'arti¬ 
cle, le jeu n'a dans sa version de base 
qu'un but pédagogique, aux lecteurs de 
le modifier et de l'améliorer. Dans sa ver¬ 
sion, le but du jeu est de détruire le maxi¬ 
mum de fusées, c'est simple non ? 

Bidouilles 

L. Pegras - Voix 

Il est très difficile de jouer à des jeux de 
réflexes avec le ZX81 ou 80 à cause du 
clavier sensitif. On ne sait jamais si on a 
appuyé sur la bonne touche, ce qui est 
très gênant pour l'intérêt du jeu. Pour 
résoudre ce problème, j'ai mis sur les 
touches du jeu un morceau de caout¬ 
chouc remplaçant les véritables tou¬ 
ches. Depuis lors, je n'ai plus de problè¬ 
mes et je peux me défendre facilement 
contre les « martiens ». 

G. Bellard - Verson 

Courant janvier 1983, j'ai fait l'acquisi¬ 
tion d'une extension mémoire 16 K 
MEMOPAK, pour ZX 81. 

Après essais sur mon ZX, acheté en sep¬ 
tembre 1982, j'ai constaté un défaut, 
connu également par d'autres utilisa¬ 
teurs de ZX récents. Il s'agit de points 
défilant dans certaines colonnes de 
l'écran. 

Pour que la mémoire 16 K MEMOPAK 
fonctionne correctement, j'ai réalisé la 
modification suivante : par l'intermé¬ 
diaire d'un connecteur de sortie sur la 
mémoire 16 K, j'ai chargé le signal 0 par 
une résistance de 33 K branchée entre 
les contacts 1 6 4 et 1 B 6. 

Je précise toutefois, que le ZX marche 
parfaitement avec une extension 16 K 
Sinclair. 


Dames en solitaire 

H. Berteux- Boulogne s/S 

Votre jeu « Dames en solitaire » m'a 
passionné et y ayant passé du temps, je 
me permets quelques remarques. Le 
damier possède un centre de symétrie 
situé au centre du carré formé par les 
cases 
28 29 

• 

36 37 

Ceci explique que : 

1 chaque action de jeu devra conserver 
cette symétrie 

2 - le résultat final (qui n'est qu'une 
action de jeu) possède également cette 
symétrie 

3 - en conséquence de quoi le nombre 
minimum ne peut être inférieur à 4, (le 
centre de symétrie étant à l'extérieur 
d'une case). 

Je suggère donc de modifier la ligne 596 
en 

PRINT...INT (48-S)/0,44 


Fast load monitor 

G. Pedroli - St Vincent de Mercuze 

Dans le courrier des lecteurs du n° 4 
d'Echos Sinclair, un lecteur demande s'il 
est possible d'utiliser conjointement le 
ZXASet le FLM. 

Comme vous le faites remarquer, celà 
est impossible à cause du même empla¬ 
cement mémoire pour ces deux utilitai¬ 
res. 

Cependant, il est parfaitement possible 
de réaliser une K7 de ZXAS à charge¬ 
ment rapide. 

On ne peut pas procéder comme pour 
un autre programme car lors du transfert 
de ZXAS en haut de la mémoire, on 
efface les piles du ZX (d'où remise à 
zéro...). 

Il faut donc suivre la méthode très sim¬ 
ple indiquée ci-après : 

— charger le FLM normalement 

— taper POKE 16388,0 et POKE 
16389,108 puis NEW 

— charger le ZXAS à vitesse réduite, 
tant que l'on ne lance pas l’exécution de 
ZXAS par RUN, le FLM est toujours en 


mémoire, ce qui permet cette fois de 
sauver le ZXAS en grande vitesse. 

On dispose donc d’un enregistrement du 
ZXAS à grande vitesse parfaitement uti¬ 
lisable. 

Pour l'utilisation, on charge le FLM, puis 
on fait : POKE 16388,0 ; POKE 
16389,108 et NEW, puis on utilise le 
FLM pour charger le ZXAS à grande 
vitesse. 

Une fois le chargement terminé et quand 
vous désirez utiliser le ZXAS, vous tapez 
RUN et le ZXAS vient écraser le FLM en 
mémoire, après celà vous ne disposez 
plus que de ZXAS. 

Cette méthode permet, par sa rapidité, 
de pouvoir sauver dans un même enre¬ 
gistrement le ZXAS non exécuté et un 
programme en assembleur. 

J'espère que ces explications pourront 
satisfaire en partie les lecteurs intéres¬ 
sés. 


Gestion de Stock 

D. Mermet - Oyonnax 

Je tiens à vous remercier d'avoir déve¬ 
loppé le programme Stock pour Sinclair. 
Il fonctionne presque parfaitement bien 
à l'exception des points ci-après : 

— Abandon de la fiche (4500) impossi¬ 
ble. 

— Sauvegarde des données sur cas¬ 
sette (9000) impossible le Sinclair se 
plante. 

— Gestion du curseur impossible à l'aide 
de SHIFT, pas de déplacement ni à 
droite ni à gauche, pas d'insertion ni 
d'effacement. Seul le caractère blanc 
est possible. 

J’ai rentré exactement le programme 
publié sur le n° 3 d'Echos, pouvez-vous 
m'expliquer ce qui se passe ? 

Est-il possible d'augmenter le nombre de 
caractères pour la référence ? J'aurais 
besoin de passer de 3 à 6. 

Avec ce programme le SINCLAIR, se 
plante souvent, ce qui le rend inutilisa¬ 
ble, y-a-t-il une explication ? 

J'aurais besoin à la place du montant 
TTC d'indiquer le prix de vente HT. 

Est-il possible d'adjoindre à ce pro¬ 
gramme une parité de monnaie étran¬ 
gère : j'achète en Italie et en Allemagne 
divers produits que je revends. 

PS : Je pense que de nombreux utilisa¬ 
teurs du SINCLAIR s'intéressent à ce 
type de programme. 

Le programme marche très bien. Rem¬ 
placez les L PRINT par des PRINT si 
vous n'avez pas d'imprimante. Le cur¬ 
seur se déplace par Shift < etshift >. 
Nous avons fait part de votre demande à 
Marc Bayle. De plus si vous n'avez pas 
de FAST LOAD MONITOR, remplacez 
les lignes 9120 et 9125 
par 9120 SAVE N $. 


Connecteur de sortie 


ROM 


1B 5V9v£( ^V, a? Aî*’5B4A-îti;«i/»0*9 *8 A-> *6*5*1. fSjjp r, ce m fé rieure 

h++ 11 . 1 , i . n, 1 1 h - Hi -4 _u..ij.i . ; ; des 

P | 0* DI D? D6 OS 0Ï D* l*fl WlfÛ 66 WR_ _WAIT RfSfT R»SH • 1 r ue:> 

ml h£1 i®û bùsak busrq mi composants 


[P_ 
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VENTES 


Vds ZX 81 + extension 16K (clavier 
mécanique) : 1.250 F + carte 
CHRS : 350 F + carte-mère : 250 F. 

Le Nouen Denis - Kerblehan 56440 Lan- 
guidic. Tél. : 971.65.85.04. 

Vds 2X81 16K + K7 n° 1 - 3 et 4 sz Sin¬ 
clair + K7Jeux (Mazogs + Simulation 
de vol + Star Trek + Labyrinthe + 
Invaders + 2 XAS) + 6 Livres valeur 
2.392 - vendu 1.100 F. C. Foncupt 25 
rue Jean Moulin 76530 Grand- 
Couronne. 

Vds TV N et B écran 12 cm I220/12V) 
S/s garantie (29.10.82) cause achat cou¬ 
leur 900 F - Bavouzet Patricia Tél. : 16 
(6) 430.47.65. 

Vds ZX81 avec accessoires plus CL avier 
mécanique, amplificateur de Load, Fast 
Load Monitor, 10 Programmes acheté 
en novembre 82 vendu 590 F. 

Vds extension 16K pour 180 F. P. Pin¬ 
çon 50 cité Écuyer 22100 Dinan. 

VDS ZX81 Mars 82 + inversion vidéo + 
5 ouvrages sur Z x 81 (initiation + pro¬ 
grammes) prix 800 F Tél. (3) 062.00.80 
après 20 h. 

Vends pratique ZX81 1 et 2 études Z x 81 
T2. Pilotez votre ZX81. prog. assem¬ 
bleur. Le livre = 40 F — P. Pinçon. 50 
cité Ecuyer 22100 Dinan. 

Vds ordinateur de jeux vidéo : C52 Phi¬ 
lips + 1 K7 : N° 12 Course aux dollars le 
tout jamais servi pour 800 F. Prix nor¬ 
mal : 1 300 F sans K7. Contacter Jac¬ 
queline Tél. : 306.40.27. 75015 Paris 
urgent, merci. 

Vds ZX81 + 16K, petit livre, pratique, 
études + 4 K7 : 1-5 sine, échecs psion, 
maison + doc, fact. Px : 500 F à débat¬ 
tre M. Canovas St Maurice (94) Tél. : 
376.33.18. 


ÉCHANGES 


Henriat 5, rue Guy Moquet 91390 Mor- 
sang (6-90 473 05). Ech. téléphone sans 
fil portée 200 m ctre ZX 81 + 16K. Faire 
offre (Val 1200 F). 


DIVERS 


La première bibliothèque de prêt ZX est 
créée. Pour toute information joindre 
enveloppe SELF + 4 Timbres 1,80 
à : Bibli ZX 109 r. Gaston Lauriau 93100 
Montreuil. 


RECHERCHES 


Achète EXT 64K ou Plans Ext. Mémoire. 
Documents renvoyés après photoco¬ 
pie : Démotier J.-J. 1 bd. Th. Sueur. 
Appt. C 402. 93110 Rosny-sous-Bois. 

Cherche interface ou/et programme ZX 
81 64K pour RTTY ou lecture Morse. 
Poussin B. Croizet-les-Èglisottes 39230 
Coutras. Merci. 

Cherche conseils pour application 
radioamateur avec ZX 81. Décodage 
CW RTTY etc. Faire ofvfre avec prix. 
Éventuellement réponse et retour docu¬ 
ments assurés. M. WALTERTHUM Guy 
10 imp. Cigognes 57150 Creutzwald. 
Tél. : 16(8)793.37.60. 

Recherche imprimante ZX, HRG, carte 
sonore. Faire proposition à : PINÇON P. 
50 Cité de l'Ecuyer 22100 Dinan. 

Cherche utilisateur ZX81 à Dinan pour 
échange idées, expérience, program¬ 
mes. 


Recherche schémas et documentation 
de programmateurs d'Eprom. pour 
Z80A. Ecrire à : AUTHEUIL 28220 
Cloyes/Loir. Frais d'envoi remboursés. 

Cherche extension 64K Memopax à 
650 FF. Ecrire : DAMOIS Laurent - La 
Justice Brune - Entrée 4 - Appt. 721 - 
95000 Cergy. 


Jeune débutant cherche généreux dona¬ 
teur de Sinclair (car je n'en possède 
encore aucune). Merci. Port remboursé 
naturellement ! Pierre ALBAN GRELLET 
- Aumont. 48 HLM Le Tivoli 04000 
Digne. Tél. : (92) 32.04.48. 


Cherche imprimante ZX pas trop chère 
et cherche contacts possesseurs 2X 
Région Rennes Dinan Tél. (99) 50.55.71 
poste 30.17-08 après 19 h. Frédéric 
Realland Centre Sélection 35998 Rennes 
Armées Cedex. 


ZX 81 16/64 K bien, très bien remplis 
(jeux en tous genres français et anglais, 
tous utilitaires, etc.). Mais tjs avide de 
nouveautés cherchp contacts. Bernard 
Guyot 37, rue Paul Fort 75014 Paris. Tél. 
543.50.46. 


Urgent: cherche échos n° 1, merci 
beaucoup. Bertrand Lesellier. 30, rue 
Ph. Hoffmann 93110 Rosny S/S Bois ou 
528.14.20 après 19 h. Merci. 


s ' 1 ■ 1 j -e- 

Nous vous demandons de rédiger impérativement votre petite 

annonce EN LETTRES MAJUSCULES ET EN RESPECTANT 
L'ESPACE ENTRE CHAQUE MOT (elles risqueraient sinon 
d'ëtre supprimées pour illisibilité). Nous vous remercions de 
votre compréhension. Les lignes sont composées de 35 signes 
(lettre ou intermot). Utilisez la grille ci-dessous. 



















































































































































37 










































Près de 50 000 ZX8I 
sont utilisés en France, 
et ce n'est pas fini ! 

Aujourd'hui, un nombre 
considérable de périphériques 
d'extensions et de 
programmes sont disponibles. 



N05 



Pour être tenu au courant 
de ces nouvelles possibilités 
d'emploi de votre 
Sinclair et pour avoir 
accès aux « trésors cachés 
de votre micro- ordinateur, 


nous avons créé une revue spécialisée pour VOUS 


r indispensable 
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le souhaite m'abonner à « Echos » 
au prix exceptionnel de lancement 
de 100 F pour 6 numéros. 

Bon et chèque, mandat postal 
ou CCP i retourner à 
loker Editions, 

12, Villa Saint-Michel, 

75018 Paris. 
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C oà ® 
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« Echos » 





















MISMO 


Vente Informations Services Micro-Ordinateurs 
68, rue Albert - 75013 PARIS 
Tel (1) 586.60.10 

DE MON ST RM ION TOUS LES JOURS DE tOhà 20h 



LA QUALITE 
DU SERVICE 
^UX MEILLEURS PRIX | 



PRODUITS ANGLAIS 

ncnoTEcn 


DOCUMENTATION EN FRANÇAIS 


l/F 595 F ne 

mrertoc* C*ntrontct (Port poroH*6e a Dits) Moiu*cutes mmuacu»*s. 
douDt* lorgeur conversion ASCII CompoWtXo avec moduto h RG 
CôDte Motion pour SENCOSMA OP 100 A 170 F TTC 


HRG 645 F TTC 

Homo r*soMton graph»Que 192 x 248 2* Eprom avec 30 Rouîmes 
gtopntque* Gestion par pop* vta*o d* 6 2 K 


Exploite complètement l*t possiDMit*» 
• 6 K pour langog* moertme 


945 F ne 

O* votre ZX 11 44 K Rosie 


MIMOPAK 32 K 

Extension RAM 32 K S' 
•1 fournit don 4® K 


645 F ne 

ou ov*c la t« K M*mo**crt ou Smciow 


MIMOPAK 16 K 395 F ne 

Extension RAM 16 K CommutoDle *n version Mallr* c. Etclov* 

Autorise i*i possiDUn*» sus vont*» 

16 K l*i4* (*n position Martre) 16 K Mort»* • 16 K StnclOtr 32 K 
16 K Mo*# • 16 K Esdove 32 K 32 K • 16 K Esclave (Ou Smcloir) - 44 K 


CLAVIER MfMOTIC'H 695 F TTC 

I MWtoe* »ow* SLNCL AIB po> coflo puOof LP CIOVIPI original 

PP HXpOori OC* IIPUM 0 qpu« LOUPLPtl loucnpt pro mu onnpPPL LPgpndPa 


X/ISMO EXPRESS ■ Livraison dans toute la France 
v A'»* SAfcww p nous encaissons vos choques d l expedition 

de votre commande, lamals à la réception 
ae vos ordres. 

PRODUITS FRANÇAIS 

5CUMEK 

1 


DOCUMENTATION EN FRANÇAIS 
! « 




) BOITIER VISMO- 

forme Apple (1) inf g ront voir* ZX 
• 10 *»i*r)*ton» 

Moniteur ou TV M place d*»»us 

2 SUPER CLAVIER 
MECANIQUE TYPE PRO 

loupe Porrp d pipoep Loocnp* 
JponPpnoud) 


430 F 



EN KIT 

JUUR 

390 F 

Set de louche 
davier Vismo 

6,50 F 

Sérigraphie 
pour touches 

16,00 F 

Circuit Imprimé 
seul 

70,00 F 

MAGNETO n. 

460 F 

ZX SI 



5 MONITEUR ZENITH 12" 9 PHANTOM 

ECRAN Vf RT Ne c ou— rwveriesM noeo ••*___ _» » ..p. . 

ritna imnnrtnnt ItOrt C “ (pQC-mQfl) FRANÇAIS 

avec coot* important 1100 F ton» proO l T n e <3* chargement 

6 IMPRIMANTE ZX 690 F n» 90 F 

7 Plus de bout d bout : K> IMPRIMANTE 

TOUT dans un soûl bottier SEIKOSH A OP 100 A 
H.ZZXX" 64 ''*" 990 F Mark 11 22*01 

ZP-«3 11 ADAPTATEUR V 200V 

2) Interlace por ouete (pour .mpnmqree Plus oe piooi*mti ae chargement K7 

OR 100 A) Enregistrement rapide Peut oorti*r i intercalant en** le 

O*n*roleur de coroct*r*t magnétophone et I* ZX ai 

EOrtEUPtXTEXTi *» dp loncpmpnr 230 F 

1390 F 12 CARTE COULEUR 

EPPPPPPMrrWW OOurMS0-«( 390 F 

Me c a»— iq coste de bow 64 « P*tseP*«itei 130F*ntua 

8 £L“^?!? E16K 360 F 13 CLAVIER SPECIAL 140F 

ten stock permonent) r (tr*» etfh*ftQoe) Se ptoc* stmptemeni 

«ur le clavier d origine par scotch 
double lace 


INVERSEUR TV ET VIDEO 

Montage *•» facile 0 ia portée de tou» 
Preregie (avec tch*ma de montage) 
Dimension H 2envi 7cm 

S* loge sut i* c0«* du Do«*f 120 F 

CABLE LIAISON 

GP 100 A . 170F 

VISMO 

Carto sonore 360 F 

VISMO CALCUL 380 F 

S ROM s'intégre sur lo carte ZP-83 
TRIS PUISSANT POUR LA GESTION 
Sortie dtmprtmonre 100 col 255 ligne» 

INTERFACE ZPS2 900 F 

Pa» d* programme 0 charger P*rm*t 
de foire du traitement O* texte »ur #0 col 
Minute Accent Livré avec CÔDte 
recopr* d'écran av*c la fonction copv 

CARTE-AUTO REPEAT 95 F 
PACK VISMO 

GB100A * 2P«2O.PCCÔDIP 

• i000pogp>mina 3195 F 

QPIOOA - INI MEMOIBCH . ..._ 

- CABLES ■ 1000 pogpf IWIng 3150 F 


Listing blanc, 
bandes carrol 

2500IPUUIPI 230 F 

COMPTABILITE OENERALE 
SUR CASSETTE : 450 F 


Programme mis en service 
wtNosoun 0*0ut av*h 


NOUVEAU 

A VOIR ABSOLUMENT I 
CARTE SON 

Super a octave» programmable en 
Datte et ou*mbi*uf Poign*e d* i*ux 

350 F 
250F 


e.s. 

RJ. 


GENERATEUR DE SON: 

e 3 RWHII Ot TON iNOEPf NOANTJ 
e 3 tfOdTVCS CM SPuit 
• 1 BIGiS’Rf OtNVHOPPE 
e i HGiStRf OE COMMANCM 
e 2 ftotsms POU* US PORT* 1/S 


CASSETTE PHANTOM 

ovecposgneeoeieuj 350 F 

CONNECTEUR 66 F 

UOMonmosoensode peur tp > 4s i connectons 

CARTE MERE 192 F 

Carte a interto c oge er ae rocc o roemens ae 
voste une* cenepte StstctAit pi »t 


Produits VISMO 
Cherchons revendeurs 


NOMBREUX LOGICIELS - PROGRAMMES ET JEUX VISMO 

Documentation gratuite contre 2 timbres o 1 80 F 



f BON DECOMMANDE 

à retourner S .VISMO. 

68 Eve AL SEPT 75013 PStlIS .Tsl. S66 60 10 

Nnm Prénom 

Ouantiie 

Désignation 

Prix une TTC 

Pni total TTC 








| 

ArPiirf 



' 


Viée 






uooiocr 

«OLENfNT 

>»mwni>i»i«i ■»«■»■» • Jor 



CC^iomi 

MMdR-WNpni 

Ron graimi pour . œ 3 000 P o *cn*t sou» Sémom 


Conir* r*mpour«*m*nt • »f 


-V 


1 



































































SlNOM* IX» 


ÏÏtVUU 

tî\ ws\ 


\6KfcN* 


BON A ENVOYER A DIRECO INTERNATIONAL 30, 

Je désire recevoir par paquet-poste : 

(V) OTHELLO au prix promotionnel de 135 Frs 

(T) Le clavier mécanique ABS au prix promotionnel de 140 Frs. 

Je paie par CCP ou Chèque Bancaire établi à l'ordre de DIRECO 

NOM.PRENOM. 


CODE POSTAL 


SIGNATURE 


« OTHELLO » \ 

Un jeu de stratégie désormais \ 
classique sur les micro-ordinateurs \ 
où vous jouez contre votre ZX 81. \ 

Deux programmes vous sont pro- \ 
posés sur la même cassette : 

\ l’un écrit en langage «basic», 
l’autre écrit en langage «machine». 
Chacun de ces programmes vous 
proposant plusieurs niveaux de 
difficultés. 


CLAVIER Mlr 

MECANIQUE W 

EN « ABS » 

Se fixant directement 
sur le clavier initial du ZX 81, 
ce clavier autocollant en plastique 
«ABS» vous permet en quelques secondes 
de bénéficier d’un véritable clavier méca¬ 
nique sans changer la configuration de votre ZX 81 



























